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ABSTRACT 


A  16  -  level  color  display  computer  program  for  use  with 
an  ultrasonic  acoustic  imaginq  system  is  presented.  This 
display  system  is  the  second  half  of  a  two  part  ultrasonic 
imaging  system  built  at  the  Naval  Postgraduate  School.  The 
RAMTEK  GX-100A  display  terminal  and  a  POP  11/50  digital  com¬ 
puter  were  used  as  the  display  system.  The  software  imple¬ 
mentation  and  C  language  are  discussed.  Photographs  of  ac¬ 
tual  display  using  an  experimental  data  tape  and  the  comput¬ 
er  program  are  also  included. 


TABLE  OF  CONTENTS 


I.  INTRODUCTION  .  9 

II.  BACKGROUND . 10 

A.  ACOUSTIC  IMAGING  .  10 

B.  DATA  COLLECTION . 10 

III.  DISPLAY  SYSTEM . 16 

A.  GENERAL  DESCRIPTION  .  16 

1.  Ramtek  Equipment  . . IB 

2.  Operation . 18 

a.  Virtual  Screen  Addressing  .....  21 

b.  Control  Modes . 22 

(1)  Alphanumeric  Data  Mode  .  .  .  .  23 

(2)  Transverse  Data  Mode . 23 

(3)  Raster  Data  Mode . 26 

(9)  Complex  Data  Mode  .......26 

(5)  G-raohic  Vector  Mode . 29 

(6)  Graphic  Plot  Mode . 31 

(7)  Graphic  Cartesian  Mode  ....  31 

( 8 )  Graphic  Element  Mode . 39 

c.  Color  Usaoe . 35 

(1)  Defininq  colors . 35 

(2)  Loadinq  a  color  table  .....  36 

d.  Programming  the  Ramtek  ......  3R 

B.  DISPLAY  PROGRAM . 39 

1 .  C  1  anguaqe  . . 39 

2.  Program  description  .  96 

a.  Declarations  .....  .  98 

b.  mainO  . . 50 

c.  fileonenO  . . 52 

d.  readdataO  . . 53 

e.  amptomaqO  . . 59 

f.  phtophasO  . . 55 

q.  ampl  evel  ()  55 

h.  phlevel  ()  56 

i.  intlevelO  . . ....57 

J  .'  ctabl  e() . 57 

k.  display!) . 58 

1  .  draw! )  61 

m.  pagel!)  . . 61 

n.  page2!)  . . 61 

o.  page3!)  . . 62 

p.  showclr!)  . . 62 

q.  change!)  .....  .  63 

r.  finish!) . 63 

3.  Program  Execution  . . 69 

a.  Program  loadinq  . . 69 


9 


b.  Program  Compilation  . 

c.  RAMTEK  Execution  .  . 

d.  Editinq  the  Proqram  . 

C.  SYSTEM  OISPLAYS  . 

1.  Program  Development  .  . 

2.  Display  Photographs  .  . 

IV.  CONCLUSIONS  AND  RECOMMENDATIONS 
APPENDIX  A  -  RAMTEK  Reserved  Words 
APPENDIX  B  *•  C  Lanquaqe  Reserved  Words 
APPENDIX  C  -  Detail  Flow  Chart  .  .  .  . 
APPENDIX  D  -  Computer  Program  Listing  . 

LIST  OF  REFERENCES . .  .  .  .  . 

INITIAL  DISTRIBUTION  LIST  . 


f 

t 

} 


Table  I 


LIST  OF  TABLES 


\ 

Control  Modes  and  Flaps 


22 


LIST  OF  FIGURES 


1.  Poi nt -bv-Poi nt  Scanninq  System  .  13 

2 .  Block  Diagram  of  POP-11  and  Ramtek  GX-100A  .  17 

3.  Diagram  of  Ramtek  Disolay  System  .......  20 

4.  Transverse  Data . 25 

5.  Raster  Data  Processing . 27 

6.  Complex  Data . 2* 

7.  GraoHic  Vector  Mode . 30 

8.  Graphic  Plot  Mode  . . 32 

9.  Graphic  Cartesian  Mode  . . 33 

10.  Functional  Flow  of  Display  Program  .....  47 

11.  Display  Procedure  ......  .  60 

12.  Photo  one  -  Early  development  stage  .  69 

13.  Photo  two . 69 

14.  Photo  three  .................  70 

15.  Photo  four . 70 

16.  Photo  five . 71 

17.  Photo  six  -  Introduction  text . 71 

18.  Photo  seven  -  Select  desired  display  text  .  .  72 

19.  Photo  eight  -  Want  to  view  color  tables  text.  72 

20.  Photo  nine  -  Select  desired  color  table  text.  73 

21.  Photo  ten  -  Amplitude  -  Reds . 74 

22.  Photo  eleven  -  Amplitude  -  Mixed  .  75 

23.  Photo  tweleve  -  Phase  -  Reds . 76 

24.  Photo  thirteen  -  Phase  -  Mixed . ..76 

25.  Photo  fourteen  -  Intensity  -  Reds  ......  77 

26.  Photo  fifteen  -  Intensity  -  Mixed  ......  77 


7 


ACKNOWLEDGEMENTS 


This  material  is  based  on  work  supported  by  the  National 
Science  Foundation  under  Grant  No.  ENG  77-21600. 

Any  opinions*  findinqs  and  conclusions  or  recommenda¬ 
tions  expressed  in  this  publication  are  those  of  the  author 
and  do  not  necessarily  reflect  the  views  of  the  National 
Science  Foundation. 


8 


I 


This  thesis  deals  with  the  development  of  a  16-level 
color  display  computer  program,  for  use  in  a  computer  aided 
acoustic  imaginq  system.  The  basic  imaging  system  consists 
of  a  data  acauisition  system  Cll,  a  computer  program  for 
converting  the  data  and  controlling  the  display  hardware, 
and  the  hardware  for  displaying  the  output. 

The  hardware  display  portion  utilizes  a  RAMTEK  GX-100A 
color  raster  scan  display  device  that  is  controlled  by  a 
PDP-lt/50  digital  computer.  This  allows  for  real-time  com¬ 
puter  controlled  displays  to  be  presented. 

Reference  111  discusses  in  depth  the  specific  methods 
used  for  data  collection  and  will  not  be  elaborated  upon  in 
this  thesis. 

Section  II  orovides  bachqround  information  about  acoust¬ 
ical  imaging  and  the  computer  program  will  be  discussed  in 
Section  III  of  this  thesis.  Actual  program  listings  are 
given  in  Appendix  0.  The  equipment  utilized  for  the 
displaying  of  data  will  also  be  discussed  in  Section  III  of 
this  thesi s. 

In  order  to  confirm  the  system  realiability  a  data  set 
was  read  into  the  PDP-11/50  and  was  used  as  the  development 
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II  BACKGROUND 


A.  ACOUSTICAL  IMAGING  1 31 

By  using  coherent  ultrasonic  waves  of  sound  instead  of  a 
beam  of  coherent  light  to  "illuminate"  an  object  one  can 
create  acoustical  holoqrams  that  become  three-dimensional 
pictures  when  illuminated  by  laser  light. 

In  order  to  produce  an  acoustical  hologram  the  scene  is 
"illuminated"  with  a  pure  tone  of  sound.  The  objects  dis¬ 
turb  the  sound  waves  and  produce  interference  patterns. 
This  procedure  is  discussed  in  detail  in  Ref.  C?1  The  pat¬ 
tern  can  be  recorded  in  various  ways.  Once  recorded  the 
acoustical  hologram  can  be  reconstructed  with  a  laser  beam 
exactly  as  if  it  were  an  optical  hologram.  Other  techniques 
such  as  computer  processing  can  also  be  used  to  reconstruct 
the  objects. 

The  interaction  of  sound  with  solids  and  liquids  is  dif¬ 
ferent  than  the  interaction  of  electro -magnetic  radiation. 
Sound  can  travel  a  considerable  distance*  through  dense* 
homogenous  matter  and  lose  little  energy  and  yet  it  will 
lose  a  significant  amount  of  enerqy  when  it  passes  through 
an  interface. 
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This  loss  is  due  to  reflection  at  the  interface#  which  is 


converse  to  the  energy  losses  that  occur  in  elect  ro-magnet i c 
radiation  Therefore  sound  can  be  s i gn i f i cant  1 y  effective  in 
medical  diagnosis#  in  non-destructive  testing  and  in  seeing 
underwater  and  underground  because  it  is  mostly  the  discon¬ 
tinuities  of  the  internal  oraans  tumors#  flaws#  submerged 
objects  or  subterranean  strata  rather  than  the  bulk  matter# 
that  is  of  interest  to  the  observer. 

Acoustical  imaging  is  not  new?  there  are  sonar  devices 
that  produce  pictures  similar  to  those  on  a  radar  screen# 
and  can  be  used  for  prospecting  for  oil  and  minerals.  Simi¬ 
lar  scanning  methods  are  also  in  use  by  physicians  for  the 
detection  of  brain  tumors  and  for  examing  the  unborn  child. 
In  the  latter  examples  the  sound  is  a  f reguency  of  between 
one  and  ten  megahertz.  Another  technique  employs  an  acousti¬ 
cal  "camera".  In  this  method  sound  waves  bounced  off  an  ob¬ 
ject  once  focused  with  an  acoustical  lens  onto  an  imaoe  con¬ 
verter  that  translates  the  patterns  of  sound  intensity  into 
a  pattern  of  visible  light. 

The  limiting  feature  of  both  these  conventional  methods 
is  that  the  images  show  only  two  dimensions.  They  are  two- 
dimensional  because  the  methods  detect  only  the  intensity 
(the  souare  of  the  amoltifude)  of  the  sound  waves  in  the 
sound  images.  What  the  conventional  methods  are  unable  to 
record  is  the  phase  information#  that  is#  the  arrival  time 


1 1 


of  the  crest  of  the  wave  from  the  object  with  resDect  to  the 
arrival  time  of  the  crest  of  a  reference  wave  of  the  same 
frequency . 

The  most  powerful  feature  of  holoqraphy  is  that  phase 
information  as  well  as  intensity  information  is  retained  in 
the  holoqram  and  can  be  subsequently  "played  back"  in  the 
optical  image.  Thus  in  acoustical  holoqraphy  there  is  a  to¬ 
tal  transfer  of  information  from  the  acoustical  wave  field 
to  the  visible  optical  wave  field. 

One  type  of  acoustic  holoqraohic  system  which  has  been 
investigated  is  that  which  uses  a  scann i nq,  detec t i nq  trans¬ 
ducer  mov i nq  t h rough  a  raster  pattern  in  the  holoaraphic 
plane.  A  typical  system  is  illustrated  in  Fia.  1.  The  pro¬ 
cedure  involved  was  first  described  in  an  elementary  form  by 
Thurstone  in  1966  [S] .  Normally  water  is  used  as  the  medium 
for  the  acoustic  propagation.  A  sound  source  is  placed  on 
one  side  of  the  object  and  a  scanning  hydrophone  on  the  oth¬ 
er.  The  use  of  a  reference  beam  may  be  eliminated  by  means 
of  electronic  simulation.  The  acoustic  object  beam  alone  is 
detected  and  the  detector  output  is  added  electronically  to 
reference  signal  cominq  from  the  same  siqnal  generator  that 
supplies  power  to  the  irradiating  sound  source.  The  result¬ 
ing  signal  can  then  be  processed  to  measure  amplitude  and 
phase  which  are  subsequently  recorded.  In  one  version  the 
signal  is  used  to  modulate  the  brightness  of  a  small  lamp 
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that  travels  through  a  raster  pattern  in  synchronism  with 
the  scanning  hydroohone.  The  lamp  brightness  as  a  function 
of  oostion  can  be  recorded  on  photographic  film. 

What-  has  been  described  thus  far  is  the  most  convention¬ 
al  of  the  point-by-point  scanning  systems.  However  it  is 
possible  to  scan  in  many  other  ways.  One  example  is  sug¬ 
gested  bv  the  fact  that  reciprocity  holds  between  the  il¬ 
luminating  transmitter  and  the  sensor.  In  this  method*  the 
point  transmitter  is  scanned  over  the  hologram  aperature 
while  the  sensor  remains  fixed. 


Another  example  allows  both  the  transmitter  and  sensor 
to  be  ganged  together  and  made  to  scan  as  a  unit  over  the 
holograohic  aperture.  And  yet  another  method  is  to  hold 
both  the  transmitter  and  sensor  stationary  and  scan  the  ob¬ 
ject  to  obtain  an  eouivalent  hologram.  One  of  the  problems 
with  all  these  approaches  is  that  the  scanning  is  inherently 
slow?many  transits  of  the  scanning  transducer  are  involved 
for  wide  band  holograms.  In  order  to  overcome  this  problem 
various  modifications  have  been  proposed? several  of  which 
involve  the  use  of  transducer  arrays.  The  arrays  may  be  ei¬ 
ther  of  one  or  two  dimensions  and  may  be  sampled  or  scanned 
mechanically  or  .electrically.  In  general  these  systems 
ooerate  faster  but  typically  do  not  provide  as  much  image 
information  because  of  limations  on  the  number  and  uniformi¬ 
ty  of  the  elements  of  the  array. 

As  reoorted  in  Ref.  121?  a  preliminairy  version  of  ul¬ 
trasonic  imaging  system  with  capability  of  two  dimensional 
coherent  data  processing  and  comouter  image  processing  has 
been  built  and  tested  at  the  Naval  Postgraduate  School 
(NPS). 

Reference  C2J  also  indicated  that  further  work  was  re¬ 
quired  to  develop  more  software  for  processing  and  display¬ 
ing  of  images  produced  by  the  system.  This  thesis  deals 
with  efforts  in  this  direction. 
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B.  DATA  COLLECTION 


The  type  of  system  from  which  the  data  for  this  thesis 
was  created  is  described  in  detail  in  Ref.  f 21. 

Introductory  information  is  included  herein.  The  object 
is  insonified  by  a  6"  (15.24  cm.)  diameter  g old  coated 
quartz  tranducer  The  transmitted  or  reflected  wave  is 
detected  coherently  (ie.*both  amplitude  and  phase)  in  some 
portion  of  a  diffraction  plane  located  an  arbitary  distance 
from  the  object.  Detection  of  the  complex  wave  is  accom¬ 
plished  by  a  rasterscan  of  a  sinqle  .04"  (1.01mm)  diameter 
PZT-5  ceramic  receiver  with  a  fundamental  f reauency  of  1.014 
MHz.  Piezoelectric  receivina  elements  offer  an  ideal  combi¬ 
nation  of  linearity  and  sens i t i vi ty fb)  for  this  aoplication. 

After  wave  detection  ,  the  amolitude  and  phase  of  the 
wave  are  sampled*  dioitized*  and  recorded.  The  recorded 
data  is  then  entered  in  the  comouter  processing  portion  of 
the  system  at  a  later  time.  As  indicated  the  Naval  Postgra¬ 
duate  School  (NPS)  system  consists  of  two  parts  :  the  data 
acquisition  section  and  the  computer  processing  and  display 
section.  The  emphasis  of  this  thesis  has  been  placed  on  the 
presentation  of  the  computer  program  used  to  display  the 
data  that  was  produced  in  the  system  previously  discussed. 
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Ill  DISPLAY  SYSTEM 


A.  GENERAL  DESCRIPTION 

The  disolay  system  used  is  currently  in  operation  at 
the  NPS  utilizing  a  POP  -  11/50  digital  computer  interfaced 
with  a  RAMTEK  GX  -  100A  terminal  and  display  screen#  to  gen¬ 
erate  the  16  -  level  color  code  displays  of  the  digitized 
data. 

Figure  2  shows  a  basic  block  diagram  of  the  PDP  -  11  and 
RAMTEK  GX  -  100A  system  as  used. 

The  RAMTEK  GX  -  100A  qraphics  display  system  utilizes  a 
raster  scan  technique#  with  the  display  image  data  being  ex¬ 
tracted  from  an  internal  refresh  memory.  The  RAMTEK  system 
in  operation  at  the  NPS  Computer  Laboratory  is  hosted  by  the 
PDP  -  11/50  computer  and  is  accessed  through  this  computer 
and  its  PWB/UNIX  operating  system#  from  one  of  the  terminals 
in  the  lab. 
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The  PWB/UNIX  operating  system  is  a  library  of  executable 
statements  that  allow  system  operation  to  be  controlled  by 
simple  call  statements.  The  C  language  (71  programs  dis¬ 
cussed  in  this  thesis  are  written  for  execution  under  the 
PWB/UNIX  operating  system  and  use  many  of  these  library 
calls. 


Block  Diagram  of  the  Display  System 
Figure  ? 


1 •  RAMTEK  Equipment 

The  RAMTEK  GX  -  100A  is  a  color#  raster  scan  display 
device#  the  heart  of  which  is  a  color  cathode  rav  tube#  not 
unlike  a  home  color  television  set.  The  method  for  generat¬ 
ing  its  raster  scan  picture  is  identical  to  commercial 
cathode  rav  tubes.  This  is  the  only  real  similarity.  The 
RAMTEK  gets  the  information  for  its  picture  from  a  special 
video  generator  which  reads  the  contents  of  a  MOS  refresh 
memory  which  cdntains  all  the  information  needed  to  produce 
an  image  on.  the  screen. 

It  is  not  the  intent  of  this  thesis  to  discuss  the 
details  of  how  the  electronics  function#  but  to  inform  the 
user  as  to  how  to  use  the  device  to  display  the  given  data. 
A  more  detailed  discussion  of  the  functioning  of  the  RAMTEK 
can  be  found  in  the  RAMTEK  GX  -  100A  [81  and  RAMTEK  GX  -100B 
[9]  programmers  manual . 

2.  Ooerat i on 


The  RAMTEK  system  consists  of  a  software  interface 
to  the  user#  a  display  generator#  keyboard#  video  lookup 
table  and  a  cathode  ray  tube.  Figure  3  illustrates  their 
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The  user  orogram  executes  on  the  POP  -11/50  comput¬ 
er.  When  the  appropriate  instructions  are  executed*  the  in¬ 
terface  between  the  proqram  and  the  display  generator  for 
the  RAMTEK  is  activated.  Information  can  be  sent  via  the 
interface  to  the  display  aenerator  from  the  user  orogram  or 
from  the  keyboard.  Information  can  also  be  sent  from  the 
keyboard  via  the  interface  to  the  user  orogram.  The  display 
generator  interprets  its  instructions  and  constructs  the 
diSDlay  in  its  ROM  memory.  The  image  is  generated  on  the 
CRT  according  to  the  colors  contained  in  the  video  lookup 
table.  Any  imaqe  will  remain  (  unless  over  -  written  )»  for 
an  indefinite  period  of  time  in  the  ROM  memory. 

The  RAMTEK  graphics  display  system  in  the  NPS  Com¬ 
puter  Laboratory  utilizes  a  raster  scan  cathode  ray  tube 
with  a  screen  resolution  of  240  horizontal  lines  and  640 
elements  on  each  line.  Each  soecific  element  is  referred  to 
as  a  pixel.  This  device  has  a  hiqh  element  resolution  and  a 
low  line  resolution.  Therefore*  the  quality  of  certain  im- 
aaes  on  the  RAMTEK  may  be  less  than  desirable.  Lines  that 
are  not  horizontal  or  vertical  are  drawn  with  a  noncon- 
tinous*  staircase  effect.  When  utilizing  the  device  these 
resolution  factors  should  be  kept  in  mind*  espically  when 
operating  in  one  of  the  data  modes. 


a.  Virtual  Screen  Addressing 

The  i ni t i al i zat i on  of  RAMTEK,  which  is  accom¬ 
plished  by  the  execution  of  the  instruction  "ramtekO"* 
sets  various  default  values.  The  virtual  screen  is  set  to  a 
standard  cartesian  coordinate  system*  with  (0. 0*0.0)  at  the 
lower  left  corner  of  the  screen*  and  (100.0*100.0)  at  the 
upper  right  corner.  This  virtual  screen  can  be  redefined  by 
execution  of  a  "sc reen ( x * y * x  1  * y 1  )  "  instruction*  where  x  and 
y's  are  floatiriq  point  numbers. 

Upon  execution  of  ramtekO*  a  shades  of  grev 
color  table  Stable  0)  is  loaded*  with  color  entry  15  of  the 
table  enabled  for  display  purposes.  Tt  selects  the  al¬ 
phanumeric  control  mode  and  opens  the  RAMTEK  for  readina  and 
writing  and  finally  erase  the  screen  of  any  previous  images 
or  displays. 

There  are  three  modes  of  addressing  the  screen* 
absolute*  indexed*  and  relative.  The  program  in  this  thesis 
was  done  in  the  absolute  mode*  in  which  the  user  specifies  a 
specific  location  on  the  user  defined  screen  by  issuina  a 
"st rt xy (x * y ) "  instruction.  The  'x'  and  'y'  values  establish 
the  current  operating  position  (COP)  location.  A  discussion 
of  the  other  modes  of  addressing  can  be  found  in  Ref.  1101. 
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b.  Control  Modes 

The  RAMTEK  oDerates  in  any  one  of  eight  modes. 
Each  mode  has  associated  with  it  certain  control  flags  which 
modify  the  operation  of  the  specific  instruction  within  each 
mode.  Table  I  summarizes  the  control  modes  and  control  flags 
and  their  re  1  at i onsh i ps . 


TA8LE  I 

CONTROL  MOOES  ANO  CONTROL  FLAGS 
MODE  CONTROL  FLAGS 

number  name  IX  BK  AW  DW  FP 


0  ALPHANUMERIC  X 

1  TRANSVERSE  OATA  X 

2  RASTER  DATA  X 

3  COMPLEX  DATA  X 

4  GRAPHIC  VECTOR  X 

5  GRAPHIC  PLOT  X 

6  GRAPHIC  CARTESIAN  X 

7  GRAPHIC  ELEMENT  X 


definitions:  IX  -  Index  Addressing 

BK  -  Reverse  Background 
AW  -  Additive  Write 
DW  -  Double  Width 
FP  -  Fixed  Point 


X  X 

X  X 

X  X 

X  X 

X 
X 
X 
X 


X 

X 

X 

X 

X 

X 


X 

X 

X 


-  Control  flag  has  an  effect  in  this  mode 


X 


(1)  Alphanumeric  Data  Mode*  The  alphanumer¬ 
ic  data  mode  is  the  default  mode  uoon  initialization  of  the 
RAMTEK.  The  COP  is  established  by  the  execution  of  a 
strtxy(x*y)  instruction.  Following  this  instruction  the  in¬ 
struction  "stroutC  character  strina  " ) "  will  allow  a  char¬ 
acter  strina  to  be  output  to  the  RAMTEK  screen.  The  charac¬ 
ter  string  can  be  no  greater  than  100  characters  long  begin¬ 
ning  at  the  current  operating  position  and  continuing  on  the 
same  line.  After  completion*  an  automatic  line  feed  occurs 
which  defines  a  new  COP  on  the  next  line  at  the  same  start¬ 
ing  point  (  in  x  )  as  the  previous  line. 

When  characters  are  drawn  on  the  RAMTEK 
screen*  the  character  appears  in  the  designated  color*  while 
the  rest  of  the  screen  is  drawn  in  the  background  color. 
The  description  of  how  the  color  designation  is  accomplished 
will  be  discussed  in  Section  III  -  c  of  this  thesis. 

(2)  Transverse  Data  Mode.  The  typical  use 
of  the  transverse  data  mode  is  to  define  special  symbols  and 
characters  which  can  not  be  found  in  the  standard  character 
set . 
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The  various  data  modes  all  have  one  thinq 
in  common#  namely  the  "dat a (name# m) "  instruction.  This  in¬ 
struction  causes  the  raw  data  that  is  passed  in  a  linear  ar¬ 
ray  pointed  to  by  "name"  to  be  displayed  on  the  screen 
depending  upon  the  current  control  mode.  Here  "m"  is  the 
number  of  bytes  in  the  integer  array  named  'name'. 

The  execution  of  the  data(  name#  m)  in¬ 
struction  writes  the  information  in  raw  format#  that  is  each 
data  byte  is  interpreted  as  a  single  bit  per  Pixel  descrip¬ 
tion  of  eight  consecutive  pixels  along  a  real  screen  line. 
As  is  illustrated  in  Fig.  4.  execution  of  the  instruction: 
data(015022, 

133000# 

000101); 

causes  each  of  the  three  words  (015022#  133000#  000101)  to 

be  converted  to  binary  represent  at i on .  Eight  binary  digits 
(ones  or  zeros)  are  then  used  sequentially  to  produce  an  im¬ 
age  with  each  pixel  that  corresponds  to  a  binary  one  being 
intensified#  while  the  zeros  remain  the  background  color. 
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(3)  Raster  Data  Mode.  The  raster  data  mode* 
except  for  the  direction  of  the  writing  process  is  identical 
to  the  transverse  data  mode.  The  consecutive  bytes 
transmitted  by  the  dataO  instruction  are  written  horizon¬ 
tally  from  left  to  riqhf  without  starting  a  new  line  after 
eight  bits  are  displayed.  This  is  illustrated  in  Fig.  5 
where  the  completion  of  eight  bits  (pixels)  does  not  cause 
the  COP  to  move  to  a  new  line. 

(4)  Complex  Data  Mode.  This  mode  writes  data 
on  the  screen  in  the  same  manner  that  the  raster  data  mode 
does.  However  each  pixel  is  described  by  four  bits  of  data 
instead  of  three.  Thus*  a  single  data  word  describes  four 
pixels  instead  of  two  as  in  the  previous  data  modes . 

The  color  of  each  pixel  being  passed  is  de¬ 
fined  by  the  four  bits  that  are  assigned  to  that  pixel. 
This  mode  over-rides  the  color  designated  by  the  "colorO" 
instruction.  Unusual  and  unrealistic  displays  and  images 
can  be  very  easily  achieved  by  the  use  of  this  data  mode. 
Figure  6  illustrates  how  a  data  word  is  interpreted  in  this 
mode.  The  data  word  is  converted  to  binary  representation 
and  each  set  of  four  bits  represent  an  entry  index  of  the 
current  color  table.  The  colors  are  drawn  sequentially  on 
the  screen*  usinq  only  four  pixels  oer  data  word.  The 
colorO  instruction  will  be  described  in  Section  I I T  -  c. 


dats( 0 15022, 


0001101000010010 


Raster  Data  Mode 


Figure  5 


(5)  Graphic  Vector  MpHe.  The  four  graphic  modes 
are  used  primarily  for  interactive  drawing  and  plotting  of 
data  provided  by  the  user.  The  qraphic  vector  mode  draws 
lines  between  arbitrary  end  points.  The  starting  point  is 
defined  bv  the  existing  COP  or  it  can  be  defined  by  the  exe¬ 
cution  of  strtxy(x#y)»  to  establish  a  new  COP.  The  end 
points  can  be  defined  by  issuing  either  a  "point (x»v) "  or 
"ooi nt r ( x # y ) "  instruction.  The  first  uses  absolute  or  in¬ 
dexed  addressing#  depending  uoon  the  control  flags  condi¬ 
tion#  and  the  second  uses  relative  addressing.  The  values 
of  x #  and  y  are  real  and  must  be  exclusively  different  than 
the  current  operating  point  values.  After  execution#  the 
COP  is  then  the  end  point  of  the  vector  just  drawn.  Thus  a 
linked  line  as  shown  in  Fig.  7  can  be  drawn  by  issuing  a 
strtxyO  followed  by  successive  pointf)  instructions. 


(6)  Graphic  Plot  Mode.  The  displays  generated 
by  the  graphic  plot  mode  have  been  implemented  as  a  set  of 
plot  routines  in  the  user  interface.  The  three  routines  are 
"olotptO"  (plots  points)  "olotlnO"  (plots  continious 
lines)#  and  "oloth()H»  (plots  a  histogram).  Each  of  the 
methods  reauire  the  user  to  specify  the  points  to  be  plot¬ 
ted.  All  three  plotting  methods  are  illustrated  in  Fig.  8. 
Detailed  instructions  on  their  use  can  be  found  in  Appendix 
B  of  Ref.  UO)  . 

(7)  Graphic  Cartesian  Mode.  The  graphic 
cartesian  mode  draws  solid  rectangles  between  arbitrary  end 
points .  The  end  ooints  are  defined  as  the  lower  left  and 
upper  right  corners  of  a  rectangle.  The  COP  is  the  comple¬ 
tion  point  of  the  drawinq  unless  a  new  COP  is  defined  with  a 

I 

strtxyO  instruction.  Second  and  subsequent  rectangles  can 
be  drawn  by  the  use  of  pointO  or  PointrO  instructions. 
With  the  fixed  point  flag  set#  a  strtxyO  instruction  deter¬ 
mines  the  common  point  for  and  between  subsequent  pointO  or 
PointrO  instructions.  Figure  9  illustrates  these  charac¬ 
ter  i st i cs  . 
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pi OtPt ( ) 


pi Ot 1 n  (  ) 


pi Ot  h  (  ) 


Graphic  Plot  Mode 
Figure  ft 
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Inst  ruct i ons 


setmode(6, 0) ; 
st  rt  xy ( 1 0 • , 1 0 )  ? 
color!  1 )  J 

ooint (12.14. ) ?  /*  Draw  A  in  color  1  */ 
colo r(2) » 

poi nt ( 14 . , 15.  ) »  /*  Draw  B  in  color,  2  */ 
fixot(l),  /*  set  fixed  point  */ 
strtxy(5.,5.)? 

point (3. *2.) »  /*  Draw  C  in  color  2  */ 
color(3)J 

poi  nt  (7  .  ,4 . ) »  /*  Draw  D  in  color  3  */ 


a 

A 

\ 

(12,14) 

(10,10) 


14,15) 


Graphic  Cartesian  Mode 


Fiaure  9 


(8)  Graphic  Element  Mode.  The  graphic  element 
mode  draws  a  single  pixel  on  the  screen  as  determined  by  a 
pointO  or  a  pointrO  instruction.  After  execution#  the  COP 
is  on  the  same  real  screen  line  and  one  screen  element  to 


c.  Color  Usage 


All  images  that  are  disolayed  on  the  screen  are 
displayed  according  to  an  entry  in  the  video  look-up  table* 
which  is  commonly  called  the  color  look-up  table. 

(1)  Defining  Colors.  The  RAMTEK  hardware  de¬ 
fines  colors  by  the  combining  red*  blue  and  green  in  varying 
intensities  to  produce  color.  Si  ice  the  color  lookup  table* 
(from  which  the  CRT  receives  its  instructions  on  how  to  mi* 
the  three  colors*)  stores  information  in  digital  format*  the 
user  is  limited  to  2t12  (4096)  possible  color  definitions. 
In  order  to  define  an  entry  in  a  color  table*  the  instruc¬ 
tion  "t r i pi e (b*g» r ) "  is  used  to  convert  the  three  input 
parameters  blue  (b)*  green  (g)*  and  red  (r)  into  an  inteoer 
which  is  used  for  insertion  into  a  color  table  entry.  Each 
entry  represents  the  code  for  a  color  in  a  twelve  bit  word. 
Each  word  is  broken  into  three*  four  bit  binary  numbers 
which  represents  intensities  of  blue*  green*  and  red  to  be 
mixed. 

A  color  table  that  can  be  used  for  an  image 
is  limited  to  sixteen  entries*  these  are  the  only  colors 
that  can  be  displayed  at  any  one  time  on  the  screen.  Entry 
*ero  of  the  color  table  is  used  as  the  background  color* 
thus  leaving  the  fifteen  other  colors  for  use  in  displaying 
images  on  the  screen. 


As  one  becomes  familier  with  the  RAMTEK 
display  it  will  become  obvious  that  many  of  the  "colors"  are 
simoly  shades  of  the  same  color/  many  of  which  appear  to  be 
almost  black  or  almost  white.  It  is  extremely  difficult  for 
an  ordinary  person  to  distinquish  between  (0/0/0)  , 
(0/0/1)/  (0/1/0)/  or  (1/0/0)  all  of  which  are  very  'close' 
to  black. 

The  RAMTEK  interface  system  permits  the  use 
of  eighteen  separate  color  tables/  the  first  four  tables  (  0 
thru  3  )  are  system  reserved  tables/  and  can  not  be  modified 
in  any  way.  The  user  may  define  as  many  additional  color 
tables  as  desired  up  to  fourteen  others /  as  described  in  the 
following  section.  The  system  color  tables  are: 

table  0  -  shades  of  grey  table  1  -  shades  of  blue 
table  2  -  shades  of  green  table  3  -  shades  of  red 

(2)  Loading  a  Color  Table.  Loading  a  user  gen¬ 
erated  color  table  reauires  a  series  of  operations.  First 
an  integer  array  of  sixteen  words  must  be  declared.  Then  it 
is  necessary  to  load  each  entry  of  the  array  from  zero  to 
fifteen  with  the  sixteen  colors  that  are  desired.  In  order 
to  accomplish  this/  the  t riol e(b/g/ r)  routine  is  used  to 
code  the  ordered  triples  and  then  assign  the  returned  codes 
to  each  entry  in  the  integer  array. 


After  the  array  has  been  loaded*  the  rou¬ 
tine  "cl rtbl (n*name) "  is  used  to  load  the  array  into  the  ac¬ 
tual  color  table*  numbered  'n'*  where  n  is  the  number  of  the 
table  between  four  and  seventeen*  and  named  'name'.  An  ex¬ 
ample  of  the  code  to  load  a  color  table  is  as  follows: 

int  aaClb)  *  /*  declare  a  lb  word  array  */ 


aa  (0) 

s 

triole(0*0/0); 

/* 

col  or 

black  */ • 

aa  (11 

= 

triol e( 15*  0*0) * 

/* 

color 

blue  */ 

aa  (21 

= 

triole(0*15*G)? 

/* 

color 

areen  */ 

aa  [31 

= 

triole(0*0»15)* 

/* 

color 

red  */ 

aa  [4] 

3 

triplet  15*0*8) 

/  * 

color 

violet  */ 

aa  [151  s  triple  (15*15*15)  /*  color  white  */ 


cl rtbl (5*aa) *  /* 


load  color  table  5  with 
the  array  aa  */ 
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d.  Programmina  the  RAMTEK 

In  order  to  use  the  RAMTEK  system  it  is  neces¬ 
sary  to  place  prior  to  any  RAMTEK  instructions  in  the  C 
language  program  the  ramtekf)  routine.  This  routine  must  be 
the  first  call  made  in  the  user  program.  It  is  the  initial¬ 
ization  routine  for  the  user  interface  and  it  ooens  the  RAM¬ 
TEK  device  and  keyboard. 

In  orde**  to  utilize  the  interface*  when  compil¬ 
ing  a  C  language  program  for  RAMTEK  the  system  command  is  : 

X  ramtek  filename. c 


Anpendix  A  contains  a  list  of  reserved  words. 
These  words  should  not  be  used  within  any  user  programs  that 
utilize  the  user  interface  for  the  RAMTEK  system. 
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display  PROGRAM 


1 .  C  Language 


This  display  system  was  implemented  in  the  C  pro¬ 
gramming  1 anquage  (71#  and  is  hosted  by  a  POP  -  11/50  com¬ 
puter  in  the  WPS  Computer  Laboratory. 

The  RAMTEK  routines  were  all  previously  written  in 
the  C  language  and  were  for  the  most  part  adeauately  docu¬ 
mented  in  Ref.  flOJ.  The  C  1 anquaoe  itself  is  well  document¬ 
ed  in  Refs.  17]  and  111]#  and  allows  the  user  to  write  clear 
and  concise  proorams.  The  C  lanquage  was  available  under  the 
PWB/UNIX  operating  system#  which  is  discussed  in  Refs.  1121 
and  (131. 

A  C  proa ram  consists  of  one  or  more  functions#  which 
are  similiar  to  the  functions  and  subroutines  of  a  Fortran 
proaram.  "main!)"  is  such  a  function?  all  C  programs  must 
have  a  main!).  Execution  of  the  program  beains  at  the  first 
statement  of  main#  and  main  will  usually  simply  call  or  in¬ 
voke  other  functions#  some  which  are  user  defined#  others 


f  rom  1 i brar i es 


C  1 anquage  has  four  types  of  variables, 
int  -  integer  (  16  bits  ) 
char  -  one  byte  character  (  8  bits  ) 
float  -  s i nal e-orec i s i on  floating  point 
double  -  double  precision  floatinq  point 
There  are  also  arrays  and  structures  of  these  basic 
types*  pointers  to  them  and  functions  that  return  them.  All 
variables  in  C  must  be  declared  and  must  oreceed  executable 
statements . 

The  basic  conditional-  testing  statement  in  C  is  the 
if  statement*  the  simplest  form  of  an  if  statement  is  : 
if  (  expression  )  statement 
The  expression  is  evaluated  and  if  it  is  true*  the 
statement  is  executed.  Individual  statements  end  with  a 
semi-colon  (  »  ).  There  can  be  used  an  ootional  else 


c 1 ause. 


The  Relational  operators  are; 


==  eaual  to 


!=  not  eaual  to 


>  greater  than 


<  less  than 


>  =  greater  than  or  eaual  to 
<=  less  than  or  equal  to 

Tests  can  be  combined  with  "&R"  (  AND  )*  " »  *  **  (  OR  )*  and 
"l"  (  NOT  ). 


The  basic  loooing  mechanism  in  C  is  the  while  state¬ 
ment.  The  while  statement  is  a  looo  whose  general  form  is  t 
while  (  expression  )  statement; 

Its  meaning  is  J 

(a)  evaluate  the  expression 
Cb)  if  its  value  is  true* 

do  the  statement  and  go  back  to  (a). 

The  arithemetic  operators  are  the  usual  add  '  ♦ ' , 
subtract  (minus)  '*'»  multiply  '*'*  and  divide  V  and  the 
remainder  or  mod  operator  '**.  The  else  clause  can  be  used 
to  devise  more  elabroate  programs  such  as  : 

if  (  expression  )  statementl  else  statement2 
or  to  construct  logic  that  branches  one  of  several 
wavs  : 

if  (..«•)  ^ 

(....> 

else  if  (....) 

(....> 

else  if  (....) 

el  se 

(....> 

where  the  statements  of  the  function  are  enclosed  by  the 


brackets  O 


In  addition  to  the  usual  incrementing  and  decrement¬ 
ing  methods?  C  has  two  other  unary  operators  (  incre¬ 

ment  )?  and  '  — •  (  decrement  ).  Where  ♦  ♦n  is  equivalent  to  n 
s  n  ♦  1  •  The  unusual  feature  of  and  '--'?  is  that 

they  can  be  used  before  or  after  a  variable.  The  value  of 
♦  ♦k  is  the  value  of  k  after  it  has  been  incremented.  The 
value  of  k  +  +  is  the  value  of  k  before  it  is  incremented. 

Arrays  can  be  made  as  in  Fortran?  thus  an  array  of 
ten  integers  is  created  by  the  followinq  declaration  : 
int  x  C 1  01  ; 

square  brackets  tl  are  used  for  subscripting?  and 
parentheses  are  used  for  function  references  .  Array  in¬ 
dices  begin  at  zero?  thus  the  elements  of  x  are  *  x  10] ? 
xfll?  x  [2] ?  ........  x  [9]  .  Mul t i -di mens i on  arrays  are  pro¬ 

vided?  with  the  declaration  similar  to 
i nt  name  tl  0]  f  20 1  ? 

name  has  10  rows?  and  20  columns?  and  the  riqhtmost  sub¬ 
script  varies  fastest. 

Text  is  usually  kept  as  an  array  of  characters.  The 
statement : 

orintf("2d:\tXs"?n?l i  ne)  ? 

will  print  the  integer  n?  a  colon?  tab  five  spaces  and  print 
the  characters  stored  in  the  array  named  line.  The  symbol 
"%d"  indicates  to  print  an  inteoer?  the  symbol  "\t"?  indi¬ 
cates  to  tab  five  spaces  while  the  symbol  "%s"  indicates  to 
print  a  character  array.  Each  variable  symbol  must  be  iden¬ 
tified  in  the  description  portion  of  the  statement  (that 
portion  not  enclosed  by  quotation  marks). 


Another  method  is  to  place  the  output  between  quotes 


as  : 

printfC  Mary  had  %d  ducks\n"#  i)  t 
with  i  equal  to  7  #  will  print 
Mary  had  7  ducks 

the  symbol  '\n*  is  the  carriage  return  control  character. 

The  for  statement  is  a  somewhat  generalized  while 
statement#  that  allows  the  user  to  out  the  i ni tal i zat i on  and 
increment  parts  of  a  looo  into  a  single  statement. 

An  example  is: 

for  (  i  s  OJ  i  <  kj  i-tt  )  { 
statement  1 
statement? 

> 

which  executes  statement!  and  statement?  k  times. 

Global  variables#  variables  common  to  all  functions 
are  declared  outside  of  main() .  Local  variables  are  declared 
inside  a  function#  while  the  declaration  of  oassed  vari¬ 
ables  is  done  between  the  function  name  argument  list  and 
the  opening  An  example  is  shown  on  the  following 

page. 
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int  z»  k  i  /*  global  variable  */ 

main( ) 

< 

int  x  ( 1 01  ; 

count (sum# 10)  ;  /*  calls  count  routine  */ 
printfCThe  answer  is  %d0#  xti])  ► 
k  =  x  in  *  x  t?i  ♦  (  x  t3i  -  x  cai  ) 
count (total #si ze) 

int  total  (1 #  size  i  /*  oassed  variables  */ 

( 

int  i#  c  »  /*  local  variables  */ 

for  (  i  =  0#  i  <  size#  ) 

( 


executable  statements 

> 

for  (  z  =  k;  z  <  c#  z*f)  /*  z  global  */ 

< 

> 

return  ? 

> 


A  pointer  in  C  is  the  address  of  something.  The 
unary  operator  *S'  is  used  to  produce  the  address  of  an  ob¬ 
ject.  Thus: 

int  a#  b  ; 
b  =  &a  ? 

puts  the  address  of  a  into  b.  If  b  is  declared  a  pointer  as  : 

int  a#  *b/  c  ? 
b  =  &a  ? 
c  =  *b  ; 

b  contains  the  address  of  a  and  c  *  *b  means  to  use  the 
value  of  b  as  an  address  (  as  a  pointer  ). 

An  unusual  feature  of  C  is  that  normal  binary  opera¬ 
tors  like  the  and  the  can  be  combined  with  the  as¬ 
signment  operator  to  form  new  assignment  operators. 

For  example  "x  s-  10"  uses  the  assignment  operator 
to  decrement  x  by  ten#  and  x  s&  0177  forms  the  AND  of  x  and 

0177.  The  space  immediately  following  the  equal  sion  is 

critical!  X  s  -10  sets  X  to  minus  ten#  while  X  s-  10  decre¬ 
ments  X  by  ten. 

Appendix  6  lists  key  words  in  C  language  and  may  not 
be  used  otherwise.  Additional  information  may  be  obtained 
from  Refs.  171  and  Ill). 


2 •  Program  Description 

A  complete  program  listinq  of  the  display  program 
can  be  found  in  Appendix  D.  The  filename  of  this  proaram  is 
see3.c*  and  can  be  copied*  moved*  or  edited  using  the  rou¬ 
tine  system  functions  of  PWB/UNIX  lifted  in  references  1121 
and  (131  . 

The  purpose  of  this  section  is  to  discuss  each  rou¬ 
tine  individually*  each  routine's  purpose  (output)  and  its 
relationship  with  other  routines  in  the  program. 

Figure  10  shows  functional  flow  of  the  di.splav  pro¬ 
gram.  The  general  purpose  of  the  program  is  to  read  a  data 
file  into  memory*  sort  the  data  into  two  separate  files*  and 
convert  the  two  files  which  have  relative  values  in  them  to 
absolute  values.  Next  the  program  quantizes  each  file  to  lb 
levels  for  use  in  displaying  the  i maoe .  Durina  execution 
the  RAMTEK  system  is  initialized  and  the  image  is  displayed 
with  an  ootion  to  chanqe  the  selected  display  type.  The 
basic  flow  is  that  the  function  mainO  calls  each  routine* 
that  routine  accomplishes  a  soeciific  function  and  returns 
to  main  for  the  next  function  call.  Appendix  C  is  a  more 


detailed  flow  chart  of  the  oroaram  and  subroutines 
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a.  Declarations 


The  following  variables  are  declared  as  global  variables  so 
that  multiple  declaration  statements  are  not  required, 
variable  function  (  use  ) 


amp  filename  to  store  4096  (64x64) 

relative  values  of  amplitude 

ph  filename^to  store  4096  relative 

values  of  phase 


inten  filenameto  store  4096  relative 

values  of  intensity 


i»  J  r  It 


integer  counters 


m 


ASCII  conversion  to  integer 
of  four  bits  of  "tpone" 


n 


integer  value  for  the  selected 
color  table 


show  integer  value  for  the  selected  display 

flag  integer  indicator  as  to 

whether  the  routine  showclrO 
has  been  executed  or  not. 

If  flag  -  1  then  erase  the  screen 
in  the  routine  drawO. 


fdl 


integer  file  descriptor  for  the 
opening  of  file  toone 


fd2 


integer  file  descriptor  for  the 
opening  of  file  amp 


as 


J.'  i  j.iyiu  il  Jfljim  luiiivmuJvJQwn*1  »  •' 


.  JJIlillllllip 


fd3 

i nt  eger 

file  descriptor 

for 

the 

opening 

of  file  ph 

fd4 

i hteger 

file  descriptor 

for 

the 

openi nq 

of  file  mag 

fdS 

integer 

file  desc r i ptor 

for 

the 

open i nq 

of  file  phase 

fd6 

i nteger 

file  descriptor 

for 

the 

openi nq 

of  file  i nten 

fd7 

i nt  eger 

file  desc ri otor 

for 

the 

openi nq 

of  file  mag? 

aa[161,  bb(161#  16  -  word  integer  arrays  to  store 

dd(161f  ee(161*  various  color  tables 

f  f  1161 


cc [4]  four  character  -  character  array 

to  store  four  values  of  toone 
either  amp  or  Dh 

*oc  pointer  to  character  pc 


q  character*  a  =  'b'  is  a  test  value 

for  determining  that  input  from 
the  keyboard  has  occured 


i  character  for  labeling  the 

color  bar  table 


mag  filename. to  store  4096  actual 

values  of  magnitude 

phase  filename. to  store  4096  actual 

values  of  phase 
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x  f  y  real  counters  for  positioning 

the  COP  for  displaying  the  data 

maximum  value  of  amplitude 

minimum  value  of  amplitude 

maximum  value  of  phase 

minimum  value  of  phase 

maximum  value  of  intensity 

minimum  value  of  intensity 

difference  between  maximum 

and  minimum  amplitude 

di fo  difference  between  maximum 

and  minimum  phase 

difi  difference  between  maximum 

and  minimum  intensity 

mag?  filename  to  store  4096  real  values 

of  intensity  (magnitude  souared) 

b.  Main  Program 

The  purpose  of  the  main  program  is  to  call  the 
various  routines  that  are  used  to  accomplish  the  purpose  of 
the  program.  The  flow  of  execution  through  mainO  is 
sequential.  The  compilation  and  the  execution  of  this  pro¬ 
gram  causes  specific  data  files  to  be  filled  with  display 
data  words.  These  files  must  be  previously  created  by  the 


maxa 
mi  na 
maxp 
mi  np 
maxi 
mini 
difa 
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user 


One  method  is  to  use  the  "ed"  tedit)  command  [121 


such  as: 

led  amp  or  Xed  inten 

Seven  data  files  must  be  created  and  reside  in 
the  users  library  prior  to  program  execution.  This  pro¬ 
cedure  will  be  explained  further  i  rv  section  A-3  of  this 
chapter. 

If  the  oroqram  has  been  used  to  display  data* 
causing  these  data  files  to  have  the  correct  information 
stored  in  them,  it  is  unnecessary  to  re-fill  them  with  the 
same  information  again  uoon  subsequent  executions  of  the 
proqram  that  uses  the  same  input  data  tape. 

Comment  indicators  '/*'  are  recoani zed  and 
cause  the  compiler  to  cease  compiling  and  continue  reading, 
until  a  '*/*  is  sensed,  when  comoilina  continues  again.  The 
statements  included  betweem  '/*  and  */'  are  recognized  as 
unexecutable  comment  statements  and  have  no  effect  upon  pro¬ 
gram  execution. 

The  six  routines  readdataO,  amptomaoO,  phto- 
phasO#  amoleveld,  phlevelO,  and  intlevelO  are  used  to 
fill  the  appropriate  data  files. 

Since  only  one  test  data  taoe  was  available, 
with  its  information  being  stored  in  data  file  "toone",  it 
was  unnecessary  to  execute  these  routines  each  and  every  use 


of  the  program 


Comment  indicators  were  placed  prior  to  and  fol¬ 
lowing  each  routine  call  from  mainO#  in  order  to  preclude 
execution  of  six  time  consuminq  routines.  Use  of  these  com¬ 
ment  indicators  significantly  reduces  the  compilation#  and 
execution  time  of  the  program.  If  it  becomes  necessary  to 
change  a  data  file#  because  of  additional  or  different  data 
tapes#  the  simple  removal  of  the  appropriate  comment  indica¬ 
tors  will  easily  falicitate  the  use  of  the  specified  rou¬ 
tine. 

The  mainO  routine  sets  three  variables  Cn#  q# 
and  show)  to  initial  values  for  use  by  subsequent  called 
routines.  The  program  terminates  upon  the  execution  of  an 
exitO#  which  is  executed  in  the  finishO  routine. 


c.  fileopenO 

The  purpose  of  fileooenO#  is  to  open  seven  data 
files#  which  must  already  exist  in  the  users  library#  for 
reading  and  writing  of  information.  If  these  files  do  not 
exist  in  the  user's  library#  refer  to  Ref. 1121  for  further 
•di f ication. 

It  should  be  keot  in  mind  that  tpone#  amp#  oh# 
mag#  phase#  inten#  and  maq2  are  external  files  that  have 
data  stored  in  them#  and  that  this  data  must  be  stored  by  a 
write  instruction  and  must  be  accessed  by  a  read  instruc¬ 
tion. 
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It  is  the  user's  resoons i bi 1 ty  to  ensure  that  all 
necessary  files  do  exist  and  are  accessible  prior  to  program 
execution.  Returned  values  are  l  if  successful  opens  have 
been  executed;  otherwise  the  proqram  will  terminate  upon  an 
unsuccessful  opening  of  any  file. 

d.  readdataO 

The  purpose  of  readdataO  is  to  separate  the 
data  from  toone  into  two  files#  amp  and  ph. 

The  original  values  of  data  were  recorded  onto  a 
papertaoe  in  alternating  sequence#  amplitude  then  phase#  for 
in  excess  of  0096  data  pairs.  The  data  was  recorded  in  AS¬ 
CII  format#  thus  it  i3  also  converted  from  ASCII  to  integer 
within  the  routine  readdataO. 

The  variable  cc  is  a  character  array  four  char¬ 
acters  long.  When  the  array  is  filled  with  three  characters# 
and  a  '  '  (space)#  as  the  fourth  character#  the  library  rou¬ 
tine  atoi ()  is  called  which  converts  the  contents  of  the  cc 
array  into  an  integer  variable  m.  Depending  upon  whether  the 
variable  K  is  odd  or  even#  m  is  then  written  into  either  the 
amp  file  or  the  oh  file.  This  sequence  is  repeated  <1096 
times.  Upon  completion  of  readdataO#  no  further  use  of 
toone  is  required  #  and  two  seoerate  data  files#  amp  and  ph 


will  each  have  4096  inteqer  values  of  amplitude  and  phase 
stored  in  them  respectively. 

e.  amptomaqO 

The  purpose  of  amotomaqO,  is  three  fold:  first 
it  converts  the  relative  values  in  amp  tin  db)  into  actual 
values  in  mag  (in  db);  secondly,  it  finds  the  intensity  (in 
db)  of  the  values  in  mao  and  assians  them  to  maq2;  and 
thirdly,  amotomaq  determines  maximum  and  minimum  values  for 
magnitude  (mao)  and  maqnitude  squared  (maa2). 

One  value  of  amp  is  read,  maq  is  assioned  a 
specific  value  according  to  the  equation: 

maq  s  -20.18  -  .1754  *  amo 

This  is  necessary  because  the  data  acquisition 
system  records  relative  values.  For  display  purposes  actual 
values  are  reauired  necessitating  a  system  calibration  to 
produce  the  above  equation.  If  the  calculated  value  of  mao 
is  greater  than  the  current  value  of  maximum  amplitude,  then 
max  amplitude  is  assiqned  this  value.  If  this  value  of  maq 
is  less  than  the  current  value  of  minimum  amp,  then  min  amp 
is  assiqned  this  value.  The  maqnitude  squared  value  is  then 
tested  in  the  same  manner,  and  finally  mao  value  is  written 
into  mag  file,  and  the  mao2  value  is  written  into  the  mag2 
file. 
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f.  phtoohasO 


The  routine  phtoDhasO  is  similar  to  amptomaqO 
in  purpose  namely  to  convert  from  relative  values  of  Phase 
to  actual  values#  and  to  find  maximum  and  minimum  values. 

One  value  of  oh  is  read  and  deoendinq  uoon 
whether  it  is  less  than  or  equal  to  or  greater  than  127#  it 
is  assigned  a  soecfic  value  of  phase  Cin  deqrees)  accordinq 
to : 

if  oh  <  127 

phase  =  1.139  -t  1.4946  *  ph 

else 

phase  =  -380.28  t  1.4917  oh 

As  with  amo  this  equation  results  from  calibra¬ 
tions  performed  on  the  acquisition  system. 

Maximum  and  minimum  values  are  tested  and  saved 
accordingly.  Finally  the  value  of  phase  is  written  into  the 
phase  file. 

g.  amol evel ( ) 

The  purpose  of  amolevelO  is  to  divide  the  range 
of  amplitudes  into  16  eoual  levels#  (because  each  color 
table  has  a  possibility  of  sixteen  color  entries)#  to  test 
each  individual  value  and  to  assign  it  a  new  level  number 


according  to  its  value.  If  maxa  has  a  value  of  600  and  mina 
has  a  value  of  200/  sixteen  equal  levels  would  be  25  units 
wide.  The  general  equation  used  is: 
difference  ~  maximum  -  minimum? 

For  each  value* 


(maximum  -  value)  *  16 


level  value  =  16-  ------------------------ 

di f  f erence 

Thus  a  value  of  317  in  the  above  example  would  be 

given  a  level  value  of  4. 

(  600  -  317  *  16  ) 

16  -  — - -  s  a 
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upon  completion  of  amoleveiO.  The  file  amp  will  then  con¬ 
tain  integers  from  zero  to  fifteen  representing  the  various 
ampltitude  levels.  These  values  will  be  used  as  color  table 
indices  in  subeouent  functions.  for  displaying  the  image. 


h .  ohl evel ( ) 

The  Purpose  of  phlevelO  is  indentical  to  the 
purpose  of  amoleveiO.  Upon  completion  of  phlevelO.  the 
file  ph  will  contain  integers  from  zero  to  fifteen 
representing  the  various  phase  levels. 


i .  inti evel ( ) 


As  with  ampleveH)  and  phlevelOr  the  purpose  of 
intleveH)  is  to  generate  a  file  with  values  from  zero  to 
fifteen  representing  various  levels  of  intensity*  Upon  com¬ 
pletion  of  intleveH)  the  file  inten  will  contain  integer 
values  from  0  to  15  representing  the  various  intensity  lev¬ 
els. 

Each  of  the  six  preceedinq  routines  are  called 
from  ma'inO/  and  are  only  called  one  time.  If  the  proqram 
has  been  oreviously  compiled  and  excutedr  such  that  current 
data  is  stored  in  amp.  oh#  and  inten  files;  deletion  of  the 
comment  indicators  should  be  seriously  be  considered  prior 
to  compiling  and  execution  of  the  proqram. 

)  .  ctabl eC) 

The  purpose  of  ctableO  is  to  define  additional 
color  tables  that  can  be  used  for  display. 

The  five  arrays  have  been  declared  qlobally  and 
by  the  use  of  the  triple!)  routiner  various  color  values 
have  been  assigned  to  each  element  of  the  five  arrays. 


Remember  that  there  are  four  color  tables  that  are  system 
color  tables*  that  are  also  availiable  for  use*  namely 
greys*  blues*  and  greens.  The  arrays  are  assigned  specific 
color  table  numbers  and  names  by  use  of  the  clrtbl  (n*  name) 
routine. 

It.  displayO 

The  purpose  of  this  routine  is  to  create  the  im- 
aqe  on  the  disolay  screen  according  to  values  stored  in  the 
desired  disolay  file.  Once  the  image  has  been  drawn*  the 
routine  calls  the  routine  drawO  to  display  the  color  table 
that  is  in  use*  sets  the  desired  selection  indicator  to  zero 
and  calls  the  routine  changeO.  Control  is  never  returned 
to  mainO  and  the  program  can  only  terminate  in  the  routine 
finishO  which  is  called  by  chanqeO. 

The  selected  color  table  is  the  variable  n  and 
the  brightest  color  entry  is  assigned  for  use  as  writinq 
text  on  the  screen.  All  colors  are  available  for  use  in  im¬ 
age  displaying  however  one  of  the  colors  is  used  to  interact 
with  the  user*  namely  entry  15. 

The  COP  starts  at  the  uoper  left*  at  cartesian 
point  ( 30 . » 69 . 375 ) .  For  64  values  of  i#  X  is  incremented  bv 
0.625*  the  color  level  value  is  obtain  from  the  selected 


display  file#  used  as  the  variable  in  colorO  and  a  block 
0.625  by  0.625  units  is  drawn  by  the  blockO  instruction. 
After  60  blocks  have  been  drawn#  Y  is  decremented  by  0.625. 
X  is  assigned  the  value  of  69.375  and  for  60  values  is  de¬ 
cremented  bv  0.625.  The  color  level  values  from  the  display 
TYPE  file#  are  obtained  and  the  block  drawn  in  the  appropri¬ 
ate  color.  Figure  12  is  a  pictorial  representation  of  this 
procedure. 

The  seekO  instructions  are  system  functions 
that  move  a  pointer  to  the  soecefied  position  of  the  speci¬ 
fied  file. 

seek  (fd2»0#0); 

orders  the  oointer  to  point  to  the  file  described  by  "file 
description  two"  (fd2)#  point  to  the  zero  position  (  the 
first  zero)  with  a  zero  offset  (the  second  zero). 

The  variable  show  is  used  to  simply  indicate 
which  display  has  been  selected  to  be  plotted. 

Show=  1  s;>  Amplitude  display 
Show  =  2  ==>  Phase  display 
Show  =  3  ==>  Intensity  display 

When  display!)  is  completed  the  image  can  remain 
on  the  screen  indefinitely#  until  an  erase!)  is  excuted  by 
comoleting  the  action  indicated  at  the  top  of  the  screen^ 
VWhich  is  typing  a  'cf  for  change  or  a  ’g'  for  guit. 


1 .  draw (o) 


The  routine  drawl)  is  called  from  two  different 
routines*  from  showelrO  and  from  displayO.  The  purpose  of 
drawO  is  to  display  the  current  color  table  on  the  RAMTEK 
screen  with  corresoondi nq  color  levels  indicated.  There  are 
sixteen  colors  in  each  table  and  the  size  of  each  color 
block  is  3x4  units.  The  variable  Z  is  a  character  variable. 
By  adding  060  to  the  inteaer  variable  p*  the  statement 
out(Z)  can  be  excuted.  Out O  displays  a  single  character  on 
the  RAMTEK  screen  at  the  current  operating  point.  Upon  com¬ 
pletion  of  drawing  the  color  table  execution  is  returned  to 
the  calling  routine. 

m.  pagein 

The  purpose  of  pegetO  is  simply  to  output  text 
to  the  RAMTEK  screen  for  introductory  comments.  When  the 
letter  'e'  is  typed  on  the  RAMTEK  keyboard  the  routine  ter¬ 
minates*  and  returns  to  main(). 

n.  paoe2() 

The  purpose  of  oaae?()  is  to  allow  the  user  to 
select  the  disnlay  he  desires  to  see.  The  integer  variable 


show  is  set  to  zero  and  the  program  will  wait  until  a  number 
is  typed  on  the  RAMTEK  keyboard#  followed  by  a  carriage  re¬ 
turn  using  the  CR  key. 

o.  paoe3() 

The  purpose  of  oage30  is  to  allow  the  user  to 
view  the  avaible  color  tables  and  then  select  which  color 
table  he  wishes  to  he  used  to  generate  the  image.  There  are 
nine  different  color  tables:  four  system  reserved  color 
tables#  and  five  oroqram  generated.  The  integer  variable  n 
is  used  to  indicate  the  selected  color  table. 

The  viewing  of  color  tables  is  accomplished  bv 
calling  the  routine  showclrO.  The  user  may  already  know 
what  tables  are  avialable  and  the  corresponding  table 
number#  thereby  not  wishing  to  view  the  nine  tables.  This 
ootion  is  also  available#  simply  by  typing  the  letter  'n' 
indicating  that  no  -  the  user  does  not  wish  to  see  the  color 
tables. 

p.  showclrO 

The  purpose  of  the  routine  showclrO  is  to  call 
drawO  for  displaying  the  current  color  table  and  asking  the 
user  if  he  wishes  to  see  the  next  color  table. 


q.  changed 


The  purpose  of  the  routine  chanoeO  is  to  deter¬ 
mine  whether  the  user  wishes  to  select  another  desired 
display  #  and/or  cbanae  the  color  table  currently  in  use. 
When  the  user  indicates  that  a  change  in  display  is  desired 
the  routines#  page2d  and  oage3d#  are  called  to  obtain 
necessary  information  concerning  the  selected  display  and 
color  to  be  displayed.  Once  this  is  accomplished#  the  rou¬ 
tine  displayC)  is  again  called  to  produce  the  desired 
di sol  ay . 

The  routine  changed  can  only  be  exited  by  indi¬ 
cating  that  the  user  desires  to  quit#  bv  typing  the  letter 
•q'  when  asked  to  do  so.  The  display  can  be  chanqed  as  many 
times  as  the  user  desires  to  do  so. 

r.  f inishd 

The  ouroose  of  the  routine  finishd  is  to  verify 
that  the  user  does  in  fact  wish  to  quit.  The  user  is  given 
a  second  and  final  chance  to  indicate  whether  he  does  really 
want  to  stop#  or  does  want  to  go  back  and  look  at  another 


selected  display 


It  is  assumed  that  the  user  of  this  proaram  does  have  at 
least  some  introductory  experience  with  the  facilities  in 
the  Comouter  Laboratory#  and  with  the  PWB/UNIX  operatinq 
system.  In  order  for  the  user  to  sucessfully  display  the 
imaoe  on  the  RAMTEK  system  a  number  of  actions  must  have 
been  accomplished. 

a.  Program  Loadina 

The  orogram  see3.c  must  be  copied  into  the  user's 
library  so  that  he  mav  make  desired  changes#  and  sb  that 
compilation  may  be  accomol i shed. 

As  indicated  in  section  III  A-?,  seven  data 
files  must  reside  in  the  user's  library.  Those  files  are  : 

tpone 

amp 

oh 

phase 
mag 
i  nt 
maq? 

Thev  can  be  created  by  usinq  the  edit  command 
"ed"»  then  writing  one  blank  line  (carriage  return)#  and 


then  quoting  the  edit  mode.  For  example  to  create  the  amp 
file: 

Xed  amp 

0  ? 

>a 

(return) 

>  1  w 

>q 

% 

would  accomplish  the  task. 

b.  Program  compilation. 

Once  the  user  has  copied  and  made  any  desired 
edits  to  his  personal  copy  of  the  program,  the  oroqram  can 
be  compiled  in  order  to  produce  an  executable  file  named 
a. out.  The  compilation  is  accomplished  by  typing  the  fol¬ 
lowing  system  command  : 

X  ramtek  see3.c 

This  action  will  produce  an  executable  file 
named  a. out.  It  is  highly  recommened  that  the  move  command 

mv  a. out  another f i 1 ename 

be  executed  in  order  to  reduce  the  possibility  of  erasing 
the  file  a. out  by  another  comlioation  prior  to  completion  of 
its  use. 

Once  the  compilation  has  been  completed,  typino 
the  filename  a. out  will  cause  execution  to  begin.  Typing 
anotherf i 1 ename,  if  the  move  (mv)  command  was  executed,  will 
also  cause  execution  to  commence. 


c.  RAMTEK  Execution 


In  order  to  use  the  RAMTEK  system  verification 
from  the  Computer  Laboratory  staff  personnel  should  be  ob¬ 
tained  as  to  whether  RAMTEK  is  operational  or  not.  When 
RAMTEK  is  operational  two  power  switches  must  be  turned  on. 
One  switch  i s  c r  •  the  CRT  housi nq  cabinet?  it  is  a  knob  lo¬ 
cated  on  the  front  lower  left  corner  marked  on  -  off.  The 
other  switch  is  on  the  keyboard*  a  preen  push  type  switch  on 
the  upper  right  corner.  Both  of  these  switches  must  be  on 
before  the  program  is  executed  in  order  to  have  meaninofull 
resul t  s . 


d.  Editing  the  Program 

The  user  can  edit  his  copy  of  the  display  pro¬ 
gram  in  the  normal  PW8/UNIX  editing  mode.  Most  of  the 
changes  will  probably  be  the  addition  or  change  of  color 
tables*  or  increasing  the  size  of  the  display. 

C.  SYSTEM  DISPLAYS 

The  photographs  shown  in  the  following  pages  are  pec¬ 
toral  evidence  that  the  routine  appears  to  accomplish  the 
desired  task*  although  much  of  the  visual  impact  is  lost  bv 
being  limited  to  black  and  white  ohotos. 


1.  Program  Development 


The  display  oroaram  was  developed  in  sequential 
steos.  A  specific  routine  was  written  and  tested  individu- 
ally  and  then  it  was  incorporated  with  the  previously  com¬ 
pleted  routines. 

2.  Display  Photographs 

The  photographs  on  the  followina  pages  show  how  some 
improvements  to  the  proqram  affected  the  display  output. 
The  last  sets  of  ohotoqraohs  show  the  display  output  of  the 
completed  proaram#  as  listed  in  appendix  D.  This  prooram  is 
re-entrant#  allowing  the  user  to  select  an  alternate  display 
and  different  color  tables  for  use  in  subseauent  display 
outouts  at  the  current  session. 

Fiqure  12  shows  one  of  the  first  images  produced. 
The  object  is  a  circular  aperture  placed  in  front  of  the 
source  transducer.  The  sound  field  is  scanned  immediately 
behind  the  object.  Previous  images  (not  shown)  filled  the 
screen  and  did  not  have  any  margins.  In  figure  12  the  image 
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is  rectangular*  controlled  by  the  blockO  instruction*  to  be 
40  wide  and  70  high.  The  display  used  white  as  the  back¬ 
ground  color  and  it  used  shades  of  red  and  blues  as  the 
primary  colors  of  the  table. 

Fiqures  13  -  16  show  the  image  to  be  blocked  to 
40X40.  As  can  be  seen  in  Fiq.16*  this  square  image  allowed 
for  information  to  be  presented  in  the  borders  of  the 
screen. 

Fiqures  17  -  20  are  presented  to  show  the  "inter¬ 
action"  that  the  user  has  with  the  system.  The  user  must 
resoond  to  the  requests  presented  on  the  screen  -  or  the 
system  will  remain  in  an  idle  state  waiting  for  a  response. 

(  Figures  2 l  -  26  show  the  three  possible  kinds  of 
display  images*  utilizing  two  different  color  tables.  Fig¬ 
ures  21*23  and  25  use  the  shades  of  red  table*  while  Figs. 
22*24  and  26  use  a  mixed  color  table.  Fiqures  21  and  2? 

are  of  the  amplitude  plots*  Fias.  23  and  24  are  the  phase 
plots*  and  Figs.  25  and  26  are  the  intensity  plots. 
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F i qure  lb. 
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Figure  22. 

Amplitude  Display  -  Mixed  Colors 


Figure  23. 

Phase  Display  -  Reds  Color  Table 


Figure  24. 

Phase  Display  -  Mixed  Colors 


75 


Flqup#  2b. 

Tntensitv  Display  -  Mixed  Colors 


CONCLUSIONS  AND  RECOMMENDATIONS 


Althouqh  the  develop ed  system  is  not  an  optimum  system 

\ 

in  speed  or  in  size,  it  does  allow  16-level  color  code 
displays  of  two  dimensional  data  arrays  to  be  visually 
displayed.  The  system  described  here  was  designed  for 
part  of  an  ultrasonic  imaaina  system.  However  this  display 
portion  of  the  overall  system  could  be  usea  to  display  two 
dimensional  data  from  any  source.  The  one  requirement  is 
that  the  data  be  stored  in  alternating  values  on  the  data 
tape.  It  must  be  recoanized  that  software  modifications 
could  be  almost  unlimited,  in  order  to  achieve  many  possible 
i  improvement  s  . 

Included  here  are  a  few  recommendations  that  would  de¬ 
finitely  improve  the  efficiency  of  the  current  oroqram.  By 
reducina  the  time  required  to  construct  the  imaae  the  pro¬ 
cessing  capabilities  of  the  system  would  be  increased. 
First,  allow  the  program  itself  to  create  the  necessary  data 
files,  rather  than  the  user  beino  required  to  do  so. 
Secondly,  allow  the  user  to  qenerate  color  tables  durina 
program  evecution.  This  would  allow  for  additional  investi¬ 
gations  to  be  conducted  at  the  terminal  by  increasing  the 
color  selection  to  the  maximum  possible  .  Thirdly,  it  is 
recommended  that  furture  endeavours  in  this  system  utilize 
the  magnetic  taoe  capabilities  of  the  PDP  11/50  computer. 


That  is  the  necessary  data  files  and  computer  program  should 
be  kept  stored  on  magnetic  tape  when  not  in  use.  This  would 
reduce  memory  requirements  when  the  proqram  is  not  in  use  and 
allow  fpr  easier  transportation  of  data. 


MhMm^MuMMMM 


jjjjjjjjiittwiMttHte  an 


appendix  a 

RESERVED  WORDS 


a 

ei  nst 

pause 

adoff 

eoagel 

pick 

adon 

eoaqe2 

P 1 otot 

ALPHA 

epaqe3 

pi ot 1 n 

axis 

erase 

pi  oth 

b 

ERS 

point 

BKON 

f  i  xot 

po i nt  r 

BKOFF 

flip 

proc  1 

bkrnd 

f  name 

proc2 

bl  ank 

fo 

oroc  3 

BLK 

FPOFF 

proc<> 

block 

f  pon 

orocS 

bracket 

qet  f 

Dt  rbu  f  f 

btl 

qetnum 

DUtUP 

bt2 

GRAPHCRT 

apt  r 

bt4 

GRAPHELM 

apt  r  1 

btS 

GRAPHVEC 

at 

buff 

head 

auest 

by tenet 

headPt  r 

al 

c 

heat 

ramtek 

eft 

ho  1  dx 

RASTERD 

change 

hoi  dy 

retchar 

c 1 rhol  d 

1  ndex 

sc i sso  r 

cl rtbl 

i not  rs 

SCR 

code 

i  nst  r 

sc  reen 

codei  t 


i nst 1 -i nst  80 


scrol  1 


coke 

inter 

SDCO 

color 

i  n  1 5  3 

setmode 

col ort 

i  n  1 6  0 

setup 

col ortbl 

i  t  oa 

si  ze 

comb 

TXOFF 

skip 

COMMA 

TXON 

SSC  ALL 

COMPD 

LCM 

st  rout 

conve 

1 Cmho 1 d 

strtxy 

conv  1 

LER 

systbl 

cooy 

Lex 

t  b 1  who 

CR 

LEI 

TRANSD 

Ct  1 

LE? 

triple 

ct? 

LLR 

upent 

ct  3 

LLX 

vector 

eta 

LLt 

wa  i  t 

cursv 

LL? 

WDOFF 

CUPSO 

LTA 

WDON 

cursh 

LTD 

wr i ton 

d 

1 1 1  r 

xaxis 

data 

LXO 

xm  i  n 

datao 

morei nst 

xmax 

dbl wi d 

nO-n  1  7 

vax  i  s 

di  so 

octbl 

yax i s  f 

dump 

OVJt 

ym  i  n 

ymax 

80 


APPENDIX  B 


C  Languaae  Reserved  Words 


i  nt 

char 

float 

doub  1  e 

st  rue  t 

auto 

extern 

real ster 

static 

goto 

return 

si zeof 

break 

conf i nue 

i  f 

el  se 

for 

do 

while 

switch 

case 

def aul  t 


entry 
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1  /*  Proqram  for  disolavino  data  on  the  RAMTEK  display  unit  */ 

2 

3  /*♦***  DECLARATIONS  •***+/ 

a 

5  int  amo*  ph*  inten*  i*  i*  k*  nt,  n,  show*  f  1  aa  * 

6  int  fdl*  fd2*  fd3,  fd4,  fd5,  fd6,  fd7  f 

7  int  aa 1 161  *  bbtlbl*  ddflbl*  eetlhl*  fftlb)  J 

8  char  ccC4J ,  »pc*  q*  t  t 

9  float  mao*  phase*  «*  v  *  ,  . 

10  float  maxa*  mina*  maxp,  minp,  difa*  di f p  * 

11  float  maxi*  mini*  difi*  maa2  * 

12  . 


13 

/*****  MAIN  PROGRAM  (  calls 

l« 

15 

main  (1 

lb 

{ 

17 

f i 1 eooen 

()  ** 

l« 

ramtek  () 

# 

19 

erase  ()- 

9 

20 

ctable  () 

m 

9 

21 

oaoet  () 

22 

oaqe?  () 

23 

oaae 3  () 

20 

/* 

2S 

readdat a 

n  ; 

26 

*/ 

27 

/* 

2S 

amotomag 

(>  ; 

29 

*/ 

V. 

30 

/* 

31 

Dhtoohas 

O  f 

32 

*/ 

33 

/* 

30 

amp  1  eve  1 

o  t 

35 

*/ 

36 

/* 

3/ 

ohlevel  O  * 

38 

*/ 

39 

/* 

00 

intlevel 

u  ? 

41 

*/ 

42 

display  O  l 

43 

t 

44 

45 

/»»***  OPENS 

ALL  NECESSARY 

46 

47 

fileopen  () 

48 

( 

49  fdl  s  ooen("tpone"*0)  t 

If  (  fdl  <  0  )  ( 


/*  OPEN  INPUT  FILE  FOR  RFAD  ONLY  */ 


j  - 

51 

print f("  CANNOT 

j 

52 

print  f ("  P LEASE 

53 

exit  ()  1 

54 

1 

1 

55 

fd2  *  open("amn"*2)  J 

1 

t 

56 

1 

57 

if  (  fd2  <  0  )  < 

i 

58 

orintff"  CANNOT 

54 

nrint  f  ("  PLfcASF 

i 

60 

exit  (>  ; 

/«  OPEN  AMP  FILE  FOR  RFAO/WRIIF  */ 
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61 

} 

62 

63 

fd3 

=  ooenCoh"*? 

60 

If  (  tdS  <  0 

65 

orlntfC" 

66 

orlntfC" 

67 

exit  O  7 

60 

> 

69 

70 

fdO 

=  ooen(*naq"r 

71 

If  (  fdO  <  0 

72 

orlntfC"  i 

73 

orintfC"  1 

70 

exit  ()  ; 

75 

> 

76 

77 

fd5 

=  ooen("ohase' 

70 

If  (  fd5  <  0 

79 

orlntfC  1 

80 

orintfC"  1 

01 

exit  n  ; 

82 

1 

83 

80 

fd6 

=  ooen(*inten' 

85 

if  (  fd6  <  0 

86 

orlntfC"  < 

87 

orlntfC"  1 

88 

exit  ()  7 

89 

> 

90 

91 

fd7 

s  open ( "mao2" 

92 

If  (  fd7  <  0 

93 

orlntfC"  ( 

90 

orlntfC"  1 

95 

exit  C)  ; 

96 

) 

97 

98 

return  * 

99 

> 

100 

/*  OPEN  PH  FILE  FOR  READ/WRITE  */ 


/*  OPEN  MAG  FILE  .FOR  RFAD/WR1TE  */ 


/*  OPEN  PHASE  FILE  FOR  READ/WRITE 


/*  OPEN  INTENSITY  FILE  FOR  READ/WR' 


/*  OPEN  MAG  SQUARED  FILE  *7 


101  /****«  READ  DATA  FROM  TPONE  INTO  EITHER  AMP  OR  PH  FILE  *♦***/ 
10? 

103  readdata  () 

100  I 

105  for  C  1  *  0}  i  <  0096*  )  1 

106  for  (  k  :  0!  k  <  2!  ktt  )  1 

107  nc  =  cc  ; 

106  do  1 

1 09  read! f rtl *oc » 1)  * 

110  If  (  *pc  ==  'No*  )  oc  =  Ucc  1-lJ  * 

111  } 

11?  while  (  *pc*t  !=*•); 

113  m  s  atol  (cc)  1 

llfl  If  (  k  ss  0  ) 

115  wri te(fd?*Rm*2)  t 

116  else 

117  wr 1 te ( f d3« 3m* 2)  ; 

llfl  1 


return  t 
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m 

121  ) 


/*  READ  ?  BYTES  INTO  A“P  */ 


123  /*****  CONVERT  INTEGER  AMP  VALUES  TNTO  dB  FLOATING  POINT  MAG  VALUE 
12R 

12*5  emotomaq  () 

126  < 

127  seek(fd2.0,0)  ;  /*  POINT  TO  BEGINNING  OF  AMP  F TLE  */ 

I  2B  seek ( f dU , 0 >01  ;  /*  POINT  TO  BEGINNING  OF  MAG  FILE  :*/ 

129  seek ( f d7  »  0, 0)  ;  /*  POINT  TO  BEGINNING  OF  MAU2  FILE  * / 

130  maxa  =  -999.0  J 

131  mina  =  999.0  J 

132  maxi  ~  000.0  ; 

133  mini  s  999.0  } 

1 39  for  (  i  =  0 J  i  <  4096;  iff  )  < 

13*5  read(fd2#&amo,2l  J  /*  READ  ?  BYTES  INTO  A“P  */ 

136  maq  *  -20.18  -  .1734  *  amp  ; 

137  maq2  :  maq  +  maq  # 

I 3B  if  (  maxa  <  maq  1  maxa  =  maq  S 

139  if  (  mina  >  mao  )  mina  s  maq  ! 

140  if  (  maxi  <  mao2  )  maxi  =  maq2  » 

141  if  (  mini  >  maq 2  )  mini  =  mag2  } 

142  write(fd4,Rmaq,4)  } 

143  wr i t e ( f d7 « Smaq2« 4 )  ; 

144  ) 

145 

146  return  1 

147  > 

14» 

149  /****•  CONVERT  INTEGER  PH  VALUES  TO  dB  FLOATING  POTNT  PnASF  VALUES 

150 

151  ohtoohas  () 

152  < 


amotomaq  O 
( 

seek( fd2»0»0)  }  /*  POINT  TO 

seek ( f da , 0 .01  ;  /*  POINT  TO 

seek(fd7,0,0)  ;  /*  POINT  TO 

maxa  =  -999.0  ! 

mina  =  999.0  J 

maxi  ~  000.0  ; 

mini  -  999.0  < 

for  (  i  =  0;  i  <  4096;  iff  )  < 

readC fd2# &amr>/ 2)  ;  /*  READ  2  BY 

maq  s  -20.18  -  .1734  *  amp  ; 
maq2  s  maq  maq  # 
if  (  maxa  <  maq  1  maxa  =  maq  S 

if  (  mina  >  maq  )  mina  s  maq  ! 

if  (  maxi  <  maq2  )  maxi  =  maq2  t 

if  (  mini  >  maq 2  )  mini  =  mag2  } 

wri te(fd4,Rmaq*4)  } 
wr i teC f d7# Smaq2# 4)  ; 

1 

return  1 


153 

seek ( f d3#  0. 0 ) 

; 

/*  POINT  TO  BEGINNING 

OF 

PH  file  */ 

154 

seek ( f d5t  0,0) 

e 

f 

/*  POINT  TO  BEGINNING 

OF 

PHASE  FILE 

155 

maxo  =  -999.0 

f 

156 

mino  *  °99.0 

• 

157 

for  (  i  so; 

i  <  4096? 

iff  )  < 

15B 

read(f d3, 

lo  h ,  2 )  ; 

/*  READ  2  BYTES  OF  PH 

*/ 

159 

if  (  oh  < 

127  ) 

1 60 

phase 

=  1.139  f 

1 . 4946  *  Dh  ; 

161 

else 

162 

ohase 

=  -3B0.2B 

f  1.4917  »  ph  ; 

163 

wri te(f d5 

*&Dhase#4) 

;  /*  WRITE  4  BYTES 

INTO 

phasf  */ 

164 

if  (  maxn 

<  ohase  ) 

maxo  =  phase  ; 

165 

if  (  mino 

>  ohase  ) 

mino  3  phase  } 

166 

> 

167 

return  ; 

/*»***  CONVERT  THE  FLOATING  POINT  VALUES  INTO  INTEGER  VALUES  OF 
BETWEEN  0  AND  15  (  for  color  table  use  )  +** 

amolevel  () 

< 

difa  s  maxa  -  mina  ? 
seek f fd2»0, 0)  l 
seek f f d4 , Or  0 1  t 

for  (  i  *  0;  i  <  4096;  iff  )  ( 
readf fd4,&maa»4)  ; 

amo  s  16  -  (((  .maxa  -  mao  )  /  djfa  )  *  16  )  l 
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181  wr 1 t e( f d?, Ramp, 21  7 

182  > 

183  return  ; 

184  > 

185 

186  ohlevel  () 

187  1 

188  difD  =  maxp  -  mine  7 

189  seek(fd3,0,0)  i 

190  seek ( f d5, 0, 0 )  ; 

191  for  (  i  s  0;  i  <  4096;  i+t  )  ( 

192  read( f H5, Sohase, 4 )  ; 

193  oh  s  16  -  (((  maxn  -  chase  )  /  di  fo  )  *  16.  )  } 

194  write(#d3,*ph,?)  ; 

195  ) 

196  return  > 

197  ) 

198 

199  i nt 1  eve  1  O 

200  < 

201  seek ( f d6, 0, 0 )  ; 

202  seek ( f d7 » 0 , 0 )  7 

203  difi  =  maxi  -  mini  7 

204  for  (  i  s  0!  i  <  4096?  itt  )  { 

205  read( f d7 , &mao2, 4)  ; 

206  inten  =  16  “  (f(  maxi  -  maa2  )  /  difi  )  *  16  )  7 

207  write(fd6,&inten,2)  7 

208  > 

209  return  7 

210  } 

211 

212  /•«*•*  0ECLERAT10N  Of  VARIOUS  POSSIBLE  COLOR  TABLES  ***»*/ 

213 

214  ctable  () 

215  < 

216 

217  aa[01strio)eCl5,15,lS); 

218  aa f 11 =trip)e( 15, 15, 10) ; 

219  aa(21=trie1e(l5, 15,05); 

220  aaf3)strio!eU5,!5,00); 

221  aar41striolefl5,10, 15); 

222  aaf5)striole(l5,05,15); 

223  eat 61 striolef 15,00, 15) , 

224  aaf71=triolefl5,10,lo); 

225  eaf81=triole(15,10,05); 

226  aaf91=trio1e(15, 10,00); 

227  aariOJstrioledb, 05,10); 

22 8  aaUl)striole(15, 05,05); 

22 9  aatl2J=trio1e(15,05,00); 

230  aall3)=triole(10,10, 10); 

231  aa(14)striole(10, 10,05),’ 

232  aaNS)*trip)e(05,05,05); 

233 

234  bbC0)strip1e(00,00,00);  /*  black  */ 


235  hbm*trio1e(0t,01,01 );  /*  */ 

236  bbr21*trip1e(0?,02,02);  ✓  *  »/ 

237  bb(31strip1e(03,03,03);  /*  */ 

238  bbf41strip1ef04,04,04);  /*  */ 

239  hbC51 *t r i o! e(05, 05, 05) ;  /*  */ 

240  bbC61 strip1ef06, 06,06) ;  /*  */ 
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bb  171  steio1e(07,07,07)  J 

/* 

If 

24? 

bb(81strip1e(08,08,08); 

t* 

*f 

243 

bbf91=tHo!ef09,09,09); 

t* 

If 

244 

bb  ri0)st riole( 10, 10, 10) ; 

ti 

If 

245 

bb  fill  =t  Holed  1,1 1,11); 

1 1 

Itf 

246 

bbfl?)striole(12,l2,12); 

ti 

If 

247 

bb(13)=triole(13,l3,13); 

/* 

itf 

248 

bb  rial =triole (14, 14, 14) ; 

fi 

*f 

249 

250 

bbfl5J=triele<15,lS,15); 

ti 

white  *f 

251 

dd(01strfple(00, 00,00); 

fi 

black  *  / 

252 

dddl =trio1 e(15,00,08); 

/* 

violet  *f 

253 

dd(21 =triole(04,00, 1?) ; 

/* 

purole  */ 

254 

ddt3lstriole(15,00,15); 

ti 

maaenta  */ 

255 

dd  (41 =t r iolefl2,04, 15) ; 

/* 

puce  *f 

256 

dd  151 striol e( 08,08, 15); 

fi 

oink  */ 

2S7 

dd(6lstriole(00,00,15); 

/* 

red  *f 

258 

ddt71striole(00,12,lS); 

/* 

orange  */ 

259 

ddf81 strio1e(00, 15,15); 

fi 

yellow  * f 

260 

dd(9)striole(00, 15,08); 

ti 

yellow  -  oreen 

261 

ddtl0]striole(00,15,00); 

/* 

green  */ 

262 

ddfl1)=trir>1e(15,08,00); 

/* 

green  -•  blue  */ 

263 

dd  ( 121 =triole(08,  15,00); 

/* 

blue  -  qreen  */ 

264 

dd(13]=triole(15,15,00); 

/* 

cyan  */ 

265 

ddri4)=triDle(1S,00,00); 

fi. 

blue  if 

266 

267 

ddtl5l=triole(15,l5,15); 

fi 

white  *f 

268 

eet01strio1e(00,00,00); 

ti 

black  */ 

269 

ee (11 *t riol e(00 . 00,05) ; 

/* 

*t 

270 

ee(2lstriole(00,00,10); 

fi 

if 

271 

ee(3lstriole(00,00,15); 

ti 

red  *f 

272 

eef41strip1e(00,05,00); 

ti 

*f 

273 

ee(51strio1e(00,05,05); 

fi 

*f 

274 

ee(6)=trio1e(00,05,10); 

fi 

*f 

275 

ee (7) striolef 00,05, 15) S 

fi 

*f 

276 

eet 81striple(00,10,00); 

ti 

*f 

277 

eet9)str»ple(00, 10,05); 

fi 

if 

278 

eetl0]strio1e(00,10,l0); 

ti 

if 

279 

ee  f 1 1 ) =t  r i o 1 e( 00 , 1 0 , 1 5 ) ; 

fi 

if 

280 

ee(12J=triole(00,15,00); 

fi 

qreen  if 

281 

eetl3)=triole(00, 15,05); 

fi 

if 

282 

ee (14) =  t  r 1 c 1 e ( 0  0 , 15,10); 

ti 

if 

283 

284 

eefl5)=triole(00,15,15); 

fi 

yellow  *f 

285 

ff (01 striolef 15,00,00) ; 

f* 

blue  if 

286 

f f (11 strioleC  15,00,05) ! 

/* 

H 

287 

ff (21str«ple(15,00,10); 

.  f* 

if 

288 

ff (31strio1e(15,00,15); 

f* 

magenta  if 

289 

f  f  (41  st Hpl e (15,05,00) : 

fit 

if 

290 

ff (5)striple(l5,05,05); 

fit 

if 

291 

ff (61str1p1e(15, 05,10); 

f* 

if 

292 

ff (7lstrfple(15,0S,15); 

fit 

if 

293 

ff (8)strip1e(15, 10,00); 

fit 

if 

294 

ff 191  strfp1e(15, 10,05); 

fit 

if 

295 

ff (10jstrfole(t5,10,107; 

fit 

if 

296 

f  f  (1  llstrloledS,  10, 15); 

fit 

it 

297 

ff  (12isteiole(1S, 15,00); 

fit 

Cyan  if 

298 

ff  C13JstHole(I5, 15,05); 

fit 

if 

299 

f f (10|striole(15, 15,10); 

fit 

if 

300 

ff (15)*trlole(lS,15,15); 

fit 

white  if 

?z 
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301 

302 

cl rthl 

(9,aa) 

303 

e  1  rthl 

(5,bb) 

309 

e  1  rt  b  1 

(6,ddl 

305 

Cl  rthl 

(7, re) 

306 

cl  rtbl 

(8,ff) 

307 

308 

return 

f 

309 

310  > 

311 

312  /*♦***  ROUTINE  FOR  DISPLAY  PORTION  OF  PROGRAM  *****/ 

313 

319  display  () 

315  < 

316  nag  =  0  ; 

317  erase  ()  ; 

318  screen  (0.0,  0.0,  100.0,  110.0  )  i 

319  colort (n)  ; 

320  col  or ( 1 5)  ; 

321  x  =  30.0  ;  y  a  69.375  ; 

322 


323 

/*♦***  AMPLITUDE  DISPLAY  ROUTINE 

*****  / 

329 

325 

i f  (  Show  as  1  )  { 

326 

st  r t  xy (90. ,80 . )  ; 

327 

Strout  ("AMPLITUDE  DISPLAY") 

t 

328 

st  rt  xy (x , y )  J 

329 

seek ( f d2, 0 , 0 )  ; 

330 

331 

for- (  i  =  0;  i  <  69 ;  i f  f  )  { 

332 

y  =  69.375  -  (  i  *  .625 

)  ; 

333 

for  (  J  a  0;  j  <  69;  jft 

)  ( 

339 

x  =  30.  f  (  .625  *  i 

)  ; 

335 

read ( f d2, &amo » ?)  ; 

336 

color (amp )  ; 

337 

block(  x,  y,  x+.625. 

yt.625  )  ; 

338 

> 

339 

iff  » 

390 

v  a  y  -  .625  » 

391 

for  (  |  a  0;  |  <  69;  jff 

)  < 

392 

x  a  69.375  -  (  .625 

*  I  )  ; 

393 

read(fd2,4amo,2)  ; 

399 

color(amo)  ; 

395 

block(  x,  v,  xf. 625 , 

yf.625  )  ; 

396 

) 

397 

) 

398 

draw  (n)  ; 

399 

show  =  0  ; 

350 

chanae  ()  } 

351 

return  ; 

352 

) 

353 

359 

/**••*  ROUTINE  for  phase  display 

PORTION  OF  PROGRAM 

355 

356 

else 

357 

if  (  show  s:  2  )  { 

358 

St rtxy ( 90. ,80. )  ; 

359 

strout ("PHASF  DISPLAY")  ; 

360 

strtxy(x,y)  ; 
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361 

seek (f d3» 0, 0 )  * 

362 

for  (  1  s  0;  j  <  feo;  j  ♦+  )  { 

363 

y  *  69.375  -  (  i  *  .625  )  ; 

364 

for  C  j  =  0;  j  <  64 ;  j ♦♦  )  { 

365 

*  =  30.  ♦  t  .625  *  j  )  J 

366 

read(fd3,&oh,2)  ; 

367 

color(oh)  ; 

36S 

block!  x*  y#  x+.625>  y+.625 

)  ; 

369 

) 

370 

; 

371 

y  =  y  -  .625  i 

372 

for  !  j  =0;  j  <64;  +  )  { 

373 

x  =  69.375  -  (  .625  *  J  )  ; 

374 

read ! f d3 >  &oh , 2 )  ; 

375 

colorCoh)  ; 

376 

block!  x>  y*  x+.625»  y+.625 

)  ? 

377 

» 

37ft 

> 

379 

draw  !n)  ; 

380 

Show  =  o  ; 

381 

chanae  !)  » 

382 

return  ; 

383 

1 

384 

385  /****»  ROUTINE  FOR  INTENSITY  DISPLAY  ***♦*/ 

386 

387 

el  se 

388 

i  f  !  show  ss  3  )  { 

389 

S*rtxy(40.,80.)  ; 

390 

strout  ! " INTENSITY  DISPLAY")  ; 

391 

Strtxy(x,y)  i 

392 

seek ( f d6, 0, o)  ; 

393 

for  (  j  =  0;  i  <  64;  i++  )  { 

394 

y  =  69.375  •  (  i  *  .625  )  ; 

395 

for  (  J  =  0;  j  <  64;  jt+  )  { 

396 

x  =  30.  ♦  {  .625  *  j  )  ; 

397 

read ! f d6» & i n t en, 2 )  * 

398 

eolorlinten)  ; 

399 

block!  xr  V*  x  +  ,625,  y  +  .62': 

)  ; 

400 

) 

401 

; 

402 

v  =  y  -  .625  ; 

403 

for  (  )  s  0;  j  <  64;  j ♦+  )  < 

404 

x  =  69.375  -  !  .625  *  j  )  ; 

405 

read ( f d6» ii nt enf 2 )  * 

406 

colorflnten)  } 

407 

block!  x  t  v,  x  t . 625»  y ♦ .625 

)  ; 

408 

> 

409 

) 

410 

draw  !n)  ; 

411 

show  =  0  ; 

412 

chanae  !)  f 

413 

return  ; 

414 

) 

415 

return  ; 

416  > 

417 

ate  /*•**•  PROGRAM  TO  DRAW  AMO  L ABLE  COLOR  LFVELS 
at* 

*20  draw  (o) 
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<121  lot  o  l 

«22  ( 


023  if  (  flaq  ==  1  )  erase  ()  » 

020  colort(p)  ; 

025  co1or(15)  ; 

026  st rtx v( 9. , 1 8. )  ; 

027  strout ("LEVEL  0  1  ?  30  5  6789 

028  st rt xy (20 . » 10 . )  ; 

029  v  =  10.  ; 

030  for  (  i  s0;  j  <  16;  )  1 

031  x  =  20.  t  (  5.  *  j  )  ; 

032  col  or ( J )  ; 

033  bl  oc  if  (  x  ,  y  ,  x  +  3  .  ,  y  +  0  .  )  ; 

030  strtxy  (00. ,28.)  ; 

035  strout  ("COLOR  TABLE  " )  i 

036  z  =  o  ♦  060  ; 

037  Strtxy  (55. ,28.)  ; 

038  out  (z)  » 

0  39  ) 

040  return  ; 

001  1 
002 

003  /***»*  INSTRUCTIONS  AND  INTRODUCTION  *♦***/ 

000 

005  naael  () 

006  ( 

007  strtxy  (00. ,90.)  ; 

008  strout  ("16  -  LEVEL  COLOR  DISPLAY")  ; 

009  strtxy  (23. ,*0.)  ; 

050  strout  ("This  oroqram  is  designed  to  display  a  data  field  with 

051  strtxy  (23. ,76.)  ; 

052  strout  ("a  selected  16  level  color  table.  The  proaram  will  ") 

053  strtxy  (23. ,72.)  ; 

050  strout  ("convert  a  data  matrix  named  TPONE  from  ASCII  to") 

055  Strtxy  (23. ,68.)  } 

056  st  rout  ("a  6'J  x  60  inteqer  array  and  then  display  the")  ! 

057  strtxy  (23. ,60.)  ; 

058  strout  ("maqnitude,  phase,  or  intensity  Plot  as  selecteo")  ; 
059  strtxy  (23. ,00.); 

060  strout  ("When  ready  to  continue  type  the  letter  ’c'  " )  ; 

061  wh ; ) e  (  o  J  =  ' c  '  ) 

062  q  s  retchar  ()  » 

063  q  =  ’b'  7 

060  erase  ()  ; 

065  return  * 


007  st  rt 

008  strc 

009  st  rt 

050  stro 

051  strt 

052  stro 

053  strt 

050  stro 

055  Strt 

056  stro 

057  strt 

058  stro 

059  strt 

060  stro 

061  wh ; 5 

062 

063  q  = 

060  eras 

065  retu 

066  1 
067 

068  oaoe2  () 
069  < 


show  =  0  » 
q  =  'b'  ; 

Strtxy  (20 . , 80 . )  ! 

strout  ("You  will  now  inout  your  selection  for  the  TYPF  of"); 
Strtxy  (20. ,76.)  J 

strout  ("disolay  you  wish  to  see.  Tvoe  the  number  *  1 •  ")  ; 
strtxy  (20. ,72.)  ; 

strout  ("if  you  want  to  see  the  MAGNITUDE  plot,  tyoe  the")  ! 
strtxy  (20. ,68.)  ; 

Strout  ("number  *2*  if  you  want  to  see  the  PHASE  plot")  ; 
Strtxy  (20. ,60.)  ; 
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661  strout  ("or  type ‘the  number  *3'  if  you  wish  to  aee  the")  J 

482  strtxy  (20. ,60.)  } 

483  strout  ("INTENSITY  plot.  Followed  by  a  CR.  ")  i 

484  strtxy  (20. ,50.)  ; 

485  strout  ("  1  -  MAGNITUDE  ")  ? 

486  strtxy  (20. ,46.)  } 

487  strout  ("  2  -  PHASE  ")  i 

488  strtxy  (20.,42.f ! 

489  strout  C  3  -  INTENSITY  ")  ,* 

490  while  (  show  --  0  ) 

491  Show  a  qetnum  (10)  J 

492  strtxy  (20. ,30.)  ; 

493  strout  ("When  ready  to  continue  tyoe  the  letter  'c'  ")  » 

494  while  (  o  is  'e*  ) 

495  a  =  retchar  ()  ; 

496  q  s  'b*  J 

497  erase  ()  » 

498  return  } 

499  } 

500 

501  oaoe3  () 

502  < 

503  q  s  * b 1  ; 

504  n  s  99  ; 

505  Strtxy  (20. ,80.)  } 

506  strout  ("If  you  desire  to  see  the  color  tables  that")  i 

507  Strtxy  (20. ,76.)  i 

508  strout  ("are  loaded  in  this  program  that  you  may  choose")  • 

509  strtxy  (?0‘.,72.)  ; 

510  strout  ("from  for  disolavinq  the  data  tyne  the  letter  'y'")  ; 

511  strtxy  (20. ,68.)  ; 

512  st rout ( "  If  you  already  know  what  color")  ; 

513  Strtxy  (20. ,64.)  } 

514  strout  ("table  you  wish  to  use  or  if  you  do  not  desire  to  see 

515  strtxy  (20. ,60.)  ; 

516  strout  ("the  color  tables,  type  the  letter  'n*  ")  ; 

517  while  (  o  ==  'b*  ) 

518  q  a  retchar  ()  ) 

519  i f  (  q  ==  'y'  )  showclr  ()  * 

520  erase  ()  ? 

521  colort  (0)  ; 

522  color  (15)  ,* 

523  Strtxy  (20. ,50.)  ; 

524  strout  ("Select  the  color  table  you  wish  to  use  ")  J 

525  Strtxy  (20. ,46.)  } 

526  strout  ("  0  -  Greys  1  -  Blues")  J 

527  strtxy  (20. ,42.)  ; 

526  strout  ("  2  -  Greens  3  *  Reds")  ; 

529  strtxy  (20. ,38.)  i 

530  strout  ("  4  -  Mixed  5  -  Mixed")  * 

531  Strtxy  (20. ,34.)  } 

53 2  strout  ("  6  -  Mixed  7  -  Mixed")  * 

533  strtxy  (20. ,30.)  f 

534  strout  ("  8  -  Mixed  Followed  by  a  CR  ")  ! 

535  while  (  n  =s  99  ) 

536  n. #  qetnum  (10)  ; 

537  o  a  ‘b*  ) 

538  erase  ()  t 

539  return  t 

540  ) 
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501 

5«?  /*****  PROGRAM  TO  DISPLAY  COLOR  T ARLES  *♦***/ 

503 

500  showclr  () 

505  < 

506  flag  =  1  ; 

507  erase  ()  ! 

508  for  (  i  :  0!  i  <  9;iu  )  I 

500  a  -  *b*  » 

550  draw  (i)  #* 

551  setmnde  (0#0)  ; 

552  StrCxy  (50. #50.)  » 

553  strout  ("  Next  color  table  ?  y  =  yes  »  n  =  no  ")  # 

550  while  (  o  ==  ‘b*  ) 

555  a  =  retchar  ()  ; 

556  If  (  Q  so  'n'  )  I  *  10  ) 

557  else  continue  * 

558  } 

559  col ort  (0)  ; 

560  color  (IS)  J 

561  erase  ()  ; 

56?  return  ; 

563  > 

560 

565  /**»**  ROUTINE  TO  CHANGE  THE  TYPE  OR  COLOR  OF  THE  DISPLAY  **•**/ 

566 

567  chanae  () 

568  < 

569 

570  a  s  -b*  J 

571  strtxy  (20. ,90.)  J 

572  strout  ("If  you  want  to  chanae  the  TYPE  or  COLOR  table  of  the"; 

573  strtxy  (20. ,86.)  ; 

570  strout  ("disolay  tvoe  the  letter  *c'.  If  you  want  to  auit  tvoe 

575  Strtxy  (20. #82.)  » 

576  strout  ("the  letter  'a'.")  # 

577  while  (  a  ==  'b'  ) 

578  a  s  retchar  ()  ; 

579  if  (  q  SS  *q'  ) 

580  finish  ()  ; 

581  else 

582  ( 

583  erase  ()  » 

580  caae?  ()  # 

585  ns  *  b '  l 

586  Strtxy  (20. #80.)  » 

587  strout  ("If  you  want  to  chanqe  the  color  table  selected  tvo 

588  while  (  a  *s  *b'  ) 

589  q  *  retchar  ()  # 

590  If  (  q  :«  'v'  I  I 

591  erase  ()  * 

592  oaoe3  ()  # 

593  > 

590  ) 

595  disolay  ()  I 

596  return  J 

597  » 

598 

599  finish  O 

600  < 
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« 

601  a  *  *6*  ; 

602  colort  (0)  ? 

603  color  (15)  « 

600  erase  ()  » 

605  strtxy  (20. ,80.)  ; 

606  strout  ("You  have  Indicated  that  you  wish  to  terminate  this  s» 

607  strt*y  (20. >76.)  ; 

608  strout  ("it  you  do  wish  to  stoo  tyoe  a  capital  ’S*  .  Otherwi*. 

609  strtxy  (20. ,72.)  } 

610  strout  ("tyoe  a  *c'  and  you  can  continue.");  . 

61)  while  (  a  ==  'h'  ) 

612  a  *  retchar  ()  ; 

613  if  (  <3  ==  'S’  ) 

610  exitO; 

615  else 

616  < 

617  erased  * 

618  chanoe  ()  » 

619  » 

620  > 
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